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@ Parallel rule-based data transmission method and apparatus. 

@ A parallel rule-based data transmission method and apparatus is described comprising multiple computer 
ports, modems, and multiple data transmission channels. The invention incorporates hardware and software data 
compression, automatic line selection and port allocation, data file segmentation and reassembly and simulta- 
neous data transmission over multiple communications channels and their associated modems or ISDN 
interfaces. The invention allows a true multi-tasking environment to exist over inexpensive data communication 
channels thereby increasing the speed of data transmission as well as decreasing the cost associated with such 
transmission. 
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FIELD OF THE INVENTION 

This invention relates to data transmission systems and more specifically to a multiple telephone 
line/multiple modem rule based parallel data transmission systems. 

5 The novelty of the invention lies in the integration of existing devices, products and networks along with 

software and firmware which makes the process of data transmission much more efficient, less costly and 
less time consuming. By utilizing low cost dial-up telephone lines and data compression techniques 
inherent in the hardware and software, in concert with rule-based file distribution and segmentation 
techniques, the cost of each data character transmitted and received is significantly reduced. Furthermore, 

70 the speed at which data is transferred is increased by an order of magnitude over that normally available for 
dial-up service. 

In effect, the economic viability of leased line or other dedicated data circuits is greatly diminished 
while increasing the economic viability of other low cost data communications channels such as dial-up 
telephone circuits as a cost effective alternative. 
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BACKGROUND OF THE INVENTION 



Multi channel data transfer has been described in patents issued to Giorgio (Patent No. 4,862,456 and 
Patent No. 4,864,567) and to Nash (Patent No. 4,577,312). However, these patents either use a central 

20 office switch or similar system to obtain simultaneous transmission which requires additional equipment and 
expense or do not comprise compression of data or multi tasking capabilities thereby limiting the over all 
throughput of data. Further none of these systems use a rule-based approach to the file management 
associated with transmission of large amounts of data. 

In contrast, the present invention does not suffer from any of these restrictions. The present invention 

25 does not require any additional equipment beyond a normal computer with communication channels and 
modems. Further the present invention employs compression algorithms to further speed the transmission 
of data and executes in a multi-tasking environment to give further throughput of information. These factors, 
together with the use of a rule-based system of file management and channel selection renders the current 
invention extremely fast and easy to use, with a minimum of operator interaction. 

30 Data files are read from the directory of a computer and analyzed as to their data content, format and 

category (i.e. binary, ASCII text, image format, etc.). Individual files or parts of individual files are then 
directed to any number of attached modems and their respective dial-up circuits. Data files are received at 
the remote end, and if segmented, re-appended (reconstructed) and stored on the remote end disk system 
component of a computer which is also equipped with multiple modems and multiple dial-up circuits. 

35 Individual line speeds exceed 60kbps (6,000 characters per second) while aggregate baud rates (data 
throughput rates) are only limited by the number of lines and modems available for transmission. 

in the Integrated Services Digital Network (ISDN) embodiment, utilizing 64KBps or faster channels, 
individual data rates exceed 300KBPS while aggregate data throughput is only limited by the number of 
ISDN circuits (and associated ISDN interfaces) available at both ends of the transmission system. 

40 The system utilizes a novel file naming convention which enables the computer hardware and software 

to optimize data compression and/or file segmentation in order to achieve maximum data throughout. 
Destination address (telephone number) data are automatically computed based upon unique data file suffix 
interpretation. 

A user friendly software front-end system is provided to automatically configure the system to the 
45 individual requirements of the user. 

Data throughput rates are achieved which were hitherto only accomplished utilizing expensive leased 
data circuits operating at data rates of from 4800 to 56KBPS or higher or other non-switched dedicated 
services. The system also facilitates switching of data which is not normally possible when leased lines (i.e., 
point to point) are utilized. 

50 It is therefore an objective of the present invention to employ an expert system/rule-based approach to 

data transmission to minimize operator interaction in such data transmission, yet maximize the speed of 
transmission of data files of any type. 

It is another objective of the present invention to provide a cost effective system of data transmission 
that is similar in performance to more expensive leased lines or dedicated higher capacity data transmission 
55 lines but which relies upon the use of low-cost communications channels such as dial-up service. 

It is another objective of the present invention to further reduce communications costs by conducting as 
much file related manipulation as possible off line. 

It is yet another objective of the present invention to provide a low cost replacement for more 
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sophisticated and expensive data transmission controllers such as the IBM 3725 or 3705, or similar 
communications front end systems. 

Further it is an objective of the present invention to provide rapid data communication in both foreign 
and domestic ISDN standard environments. 

SUMMARY OF THE INVENTION 



The Parallel Rule-Based Data Transmission method and apparatus comprises several major compo- 
nents: 

70 A. Multiple computer systems equipped with communications ports to send and receive data, 

B. Multiple modems attached to multiple communications ports on each computer system, 

C. Multiple telephone company dial-up lines or other data transmission media attached to each computer 
(both sending and receiving units), 

D. Rule-based data communications software programs providing multi-tasking and multiprogramming 
75 capabilities to divide or segment files to facilitate simultaneous transmission and reception of data based 

upon the number of telephone lines or data transmission channels and modems utilized. 
The computer system is a low cost conventional 80286, 386 or 486 based PC or other computer (such 
as those based on Motorola 68000 or other CPU) having the ability to run the rule-based software that is 
used for the data transmission management. It will be readily apparent to those skilled in the art that other 

20 computers capable of running rule-based systems which are not based on these same chips are still viable 
processors for the invention with only slight changes to the software disclosed. The computer further 
comprises multiple communication ports to facilitate the multi channel simultaneous transmission of data. 
Each computer system can transmit data to or receive data from any other computer system similarly 
equipped without regard to distance or individual line conditions. Provisions are made for ISDN compatibility 

25 through the automatic distribution of data files or their components to each ISDN B channel connected. 

Multiple modems on a single computer are employed to serve as the outgoing telecommunication 
equipment for simultaneous transmission of segmented (where appropriate) data files. The modems also 
employ data compression/decompression means to further speed the parallel transmission of data, and to 
decompress incoming data "on-the-fly" thus further reducing communication time. The invention uses 

30 standard run length encoding or Huffman encoding as its data compression scheme for ASCII data and a 
standard commercially available data compression algorithm known as CommPressor available from 
Adaptive computer Technologies, Santa Clara, CA. Data are compressed via hardware and software 
techniques to levels up to or in excess of 6:1 thus elevating data transmission rates on standard telephone 
lines to in excess of 6,000 characters per second per line utilized. Thus through simultaneous use of 

35 multiple data channels the aggregate data transmission rate is only limited by the number of communica- 
tions channels available. 

Multiple dial-up lines are used as the basic transmission medium over which the present invention 
sends its data. These lines are much less expensive than dedicated leased lines thereby yielding a further 
financial advantage of users of the present invention. It is important to note however, and it will be readily 

40 apparent to those skilled in the art of telecommunications that other transmission media also exist for which 
the present invention is equally applicable. For example, radio frequency links, satellite data communication, 
laser communication, fiber optic links and others are all candidate transmission media for use with the 
present invention. Collectively, these are referred to as transmission media. The transmission channels refer 
to the transmission media together with the send and receive ports and modems. 

45 The system incorporates several rule-based computer software programs which facilitate data file 

segmentation, data compression, and reconstruction, as well as error detection and correction and 
automatic transmission speed control responsive to the condition of each individual transmission channel. 
Further rules relating to Least Cost Routing are also employed to further minimize costs. In addition, 
software provides automatic dialing directories based upon a novel file naming convention, selective 

50 adaptive compression based upon data file contents and automatic retry if a line is dropped or intentionally 
interrupted. If one circuit is inordinately noisy, the invention senses the problem automatically, automatically 
reallocates the data to be transmitted to less noisy channels and all other communications channels will 
adjust to accept the increased load automatically until the noise level decreases. The communications 
software currently in use is the Relay Gold Communications software package available from Microcom, Inc. 

55 Other such communications packages can also be used as a substitute for Relay Gold. 

Table lookup software programs are provided to automatically dial the correct destination telephone 
number or other equipment address to which data files will be transmitted based upon the naming 
conventions utilized in each file group to be transmitted- Each group of files may be associated with and 
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targeted for any number of individual telephone nunnbers or addresses thus providing multiple simultaneous 
transmission/reception circuits only limited by the number of lines, ports and modems/ISDN circuits 
available. Each destination site or equipment, as previously stated, has a computer(s) each with multiple 
modems with separate addresses or telephone numbers. These modems receive the parallel transmission 

5 of multiple files or segmented files simultaneously. 

File segmentation is the process by which the present invention examines the number of transmission 
channels available, based upon the number of sending and receiving modems available, and divides the file 
or files to be sent, more or less evenly among the available channels. Rules exist for the orderly 
segmentation of files as explained below. The actual segmentation occurs at points in the file where a 

70 division of that file naturally occurs (such as a carriage return entry). Alternatively to the extent that 
addresses on a network are designated in a specific pattern an algorithmic determination of the address can 
be substituted for the table look-up procedure. 

All file segmentation (file division) and file reconstruction processes take place off-line, while the 
computers are not communicating, thus reducing "connect time" expense. For example, a file of 2,000,000 

15 characters is automatically divided by the number of transmission channels available and each segment is 
directed to a different channel. Segment prefixes and suffixes are added to the file to denote how the 
segment relates to one another. At the destination, the data file segments are reassembled to recreate the 
individual file as it was originally input to the transmission equipment. Reassembly is the act of reading the 
file segment identifier information (segment prefixes and suffixes) appended to the segments and contained 

20 in a special file (known as MAP. DAT) file and using that information together with segment identification 
information to "piece" the file back together into its original form. 

The present invention allows for data to be transmitted in a highly flexible way. Single files may be 
simultaneously transmitted to multiple locations. Alternatively multiple files may also be transmitted to single 
or multiple locations simultaneously. This multi-tasking occurs from a single copy of the software. There is 

25 no requirement for multiple copies of the software to be running for each transmission session. Data 
transmission sessions run from a single RAM resident copy of the program. This has the obvious advantage 
of preserving RAM space for other applications or to allow the transmission process to occur in a speedy 
fashion. 



Once the system has been configured and files loaded, the rule-based software operates automatically 



30 to perform the necessary file management and segmentation functions. All such functions are performed 
without any need for operator intervention. After transmissions are complete, the system automatically 
terminates its data transmission session and readies itself for the next series of data transfers. 

Transmission channel allocation optimization is accomplished by the software system via a series of 
rules which determine file segmentation. The segmentation is characteristically based on the number of files 

35 to be transmitted, their respective sizes and contents, their compression attributes, and the number of 
available communication equipment (modems) at both the transmission and destination locations. Optimiz- 
ation software then allocates the optimal number and type of files to each data transmission channel for 
subsequent transmission. If one or more of the destination ports is busy or otherwise inoperable, the system 
redistributes targeted data files automatically to the remaining operable channels (ports) for transmission on 

40 a first-in-first out (FIFO) basis. Further, the present invention automatically monitors the transmission 
channel itself to determine that the channel is operating properly and is not inordinately noisy. If the 
transmission channel malfunctions, the invention senses this failure, and the software reallocates the data 
file or segments to be sent to the transmission channels that are functioning properly. 



The resident software also provides full reporting capability to the user including file(s) transmitted. 



45 destination(s), throughput achieved and associated error detection and correction statistics. 

The present invention relies upon several novel file and file suffix naming and interpretation conventions 
in order to achieve full automation without user intervention. User file naming rules are integrated into a 
table lookup facility inherent in the software which determines file collating sequences when files are 
segmented and reassembled. The software sorts files by type, size and structure, looks up and determines, 

50 based upon three character (or more) file suffix (alphanumeric) destination telephone numbers or addresses 
for each group of files to be transmitted. This information is then passed to the operating system software 
and actual telephone numbers are then loaded into memory and passed to the modem(s) for off hook 
dialing. 



The rule-based software then determines the sizes of files and counts number of files to be sent. If 



55 number of available ports exceeds number of files or there is only one file to be transmitted, file 
segmentation is invoked above a certain threshold size. File(s) are divided based upon number of complete 
transmission channels available and segments are marked for reassembly. File segments are then sub- 
labeled with new prefixes indicating their component serial level and prepared for transmission. , 
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Data compression occurs based upon the type of data being sent (ASCII or binary). The type of data is 
determined by the system and the data compression peculiar to that type of data Is applied by the modem 
and software as the data is transmitted (as discussed above). Similarly, the destination modem de- 
compresses the data as it is received, first determining via a transmitted Identifier, the type of data 
5 compression used. 

At the destination, file segmentation detected via the presence of a special file known as a MAP. DAT 
file, segment serial numbers are sorted and files are reassembled subsequent to disk storage at which time 
file naming conventions are reinvoked. It is important to note that file segmentation and reassembly 
functions take place off line (on hook) so as to minimize telephone line connect time and Its attendant 
10 expense. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1. The Preliminary Data Transmission Flow 

/5 Figure 2. The Preliminary Data Transmission Flow-Continued 

Figure 3. The Data Transmission and Monitoring Flow 

Figure 4. The Data Transmission and Monitoring Flow-Continued 

Figure 5. Data Receiving Flow 

Figure 6. Incoming Data file or File Segment Processing. 
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DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 



Referring to Figure 1, the transmission process is described. 

The Invention first ascertains the user identity and whether the user will be transmitting or receiving 
25 data [10]. If transmitting data, the Invention assigns file names to the data to be sent including suffixes 
which uniquely identify the destination telephone numbers or addresses [11]. 

The invention next reads the data file presented for transmission. The file is configured for subsequent 
operations [12]. After configuration the Volume Table of Contents (VTOC) is read [13]. A directory is opened 
for the storage of the data flle(s) to be transmitted [14] and the configured file is stored in the designated 
30 directory [15]. Simultaneously with the storage, the file parameters are determined (size etc). 

The files so stored are next scanned and formats are determined for the transmission of the files [16]. 
In addition, the suffixes to any files are interpreted to determine the destination of the file [16]. 

Based upon the files scanned and the interpretation of the suffixes, a table lookup file is addressed to 
determine the telephone number or address of the destination [18]. These telephone numbers are then 
35 loaded for the dial-up calls to be made subsequently by the multiple modems [33]. In preparation for the 
transmission of files, the data files are collated [17] and the total number of bytes to be transmitted are 
determined [19]. The optimal segmentation of the file for transmission is next calculated [20] (if appropriate) 
based upon certain segmentation rules. Finally, the file is segmented for subsequent transmission [21]. 
The file segmentation rules apply the following criteria: 
40 1. If the number of available complete transmission channels (i.e. a transmission modem with cor- 
responding receiving modem) exceeds the number of files to be sent, segment the files, provided that 
the files exceed a certain threshold. (In the case of the preferred embodiment the threshold is set at 2 
KB. Other thresholds can also be set). 

2. If the number of available complete transmission channels does not exceed the number files to be 
45 sent and the files are more or less equal (as further explained below) allocate the files evenly over the 

available transmission channels without segmentation. 

3. If the number of available channels is equal to or less than the number of files but the file sizes are 
disproportionate to one another, then segment to achieve optimum throughput. "Disproportionate" size is 
determined by examining the Volume Table of Contents to determine the various file sizes. If the largest 

50 file Is more than twice the size of the next largest file, the largest file will be segmented and allocated to 
more than one transmission channel. 

The invention also incorporates a rule based subsystem to optimize the cost associated with data 
transfers based upon the types of communications channels available to the user and their respective 
relative costs per character transmitted. This function is invoked via a least cost routing table which takes 
55 into account: 

- Time of day/day of week tariff charges and discounts. 

- Distance sensitive (i.e. NPA/NXXA/H) tables which articulate the cost per minute of connection based 
upon the distance of the individual call or calls. 
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- Anticipated call duration (which is computed based upon total byte count divided by the number of 
connections available at both ends of the connection.) sensitivity. 

The cost optimization algorithm predicts the lowest possible connection cost (i.e. selecting the least 
expensive lines for each respective communications session) based upon the types and categories of 
5 channels available to the user which might include: 

- standard dial up telephone lines. 

- PBX dial access trunks. 

- Tie (dedicated circuit) lines. 

- Flat cost per minute dial up lines. 

10 - Microwave Central Office bypass circuits. 

- Other Central Office bypass circuits. 

- Volume discount dial up circuits. 

- Time of day/day of week discount dial up circuits. 

Any combination of these and other channels available to the user at both ends of the communication 

15 link can be used for purposes of these calculations. 

Provision is made for the updating of all tariff tables in order to assure that current cost data is 
maintained and properly applied to each communications based file transfer. 

Referring to Figure 3 the transmission process is further described. The invention next determines if 
binary files are present (vs ASCII files) [30]. If binary files are present, the invention invokes a binary data 

20 compression algorithm [31]. If binary files are not present an ASCII file compression algorithm is invoked 
[32]. Once the file segmentation is accomplished, the multiple modems of the invention are dialed [33] 
based upon the telephone numbers or channel addresses loaded from the lookup table [18]. 

The VTOC of the receiving computer is tested [34] to determine if appropriate space is available to 
receive all of the files about to be transmitted. If insufficient space is available the transmission session is 

25 terminated and an error message is displayed at the transmitting system. The files are subsequently 
transmitted over the multiple modems [35]. Transmission channel quality and status are continuously 
monitored during the course of transmission [35]. If line quality remains adequate transmission continues 
[37]. If line quality falls below minimum standards of signal-to-noise ratio the remaining untransmitted 
segments are reallocated to those transmission channels that are functioning properly [36] and transmitted 

30 on a FIFO basis. At the end of the transmission the system detects the end of transmission (ETX) [38] 
signal, and transmits a hang up tone and terminates the transmission over the various telephone lines [39]. 
At this point the invention is off-line. The invention next writes reports [40] that include segment size, 
transmission time, errors encountered and aggregate throughput and the system returns to the start point 
ready for the next transmission. 

35 Referring to Figure 5, the receive and decompression function is described. The receiving system is 

first configured to accept files that will be transmitted to it [50]. A directory is opened to receive the 
incoming data [51] and the multiple modems are set and Data Terminal Ready (DTR) is established [52]. 
The answer mode is set on the modems and the system awaits the transmission of data [53]. When 
transmission begins the incoming ring is detected and the modems answer the incoming calls [54]. Based 

40 upon incoming information, the compression scheme of the incoming data is determined [55]. The data is 
decompressed [56] in accordance with the appropriate decompression algorithm. 

Referring to Figure 6 the receive and decompression process is further described. After the data is 
decompressed the invention determines if file segmentation has occurred. This is accomplished by 
determining if segment file entitled MAP. DAT exists [57]. The MAP. DAT file is a file that comprises 

45 instructions for how a file has been segmented and is the primary input to the file reassembly subroutine to 
allow the segmented file to be reassembled. If the MAP. DAT file exists, the reassembly subroutine is called 
and loaded into RAM [59] together with the data from the MAP. DAT file. At the same time that segmentation 
is being detected, the decompressed data is stored for subsequent operations [58]. The invention next 
continuously monitors incoming data for the "end of transmission" (ETX) signal [60]. Once this signal is 

50 sensed, the system goes off-line [61] and processing continues. For those files that were segmented for 
data transmission, the invention reads the file collating information in the MAP. DAT file and reassembles the 
segments and stores them [58] into the original file format [62]. 

If the MAP. DAT file is not detected [57] the invention detects the end of transmission signal [60] and 
goes off line [61]. Non-segmented data can then be recalled from storage [58] for subsequent display [64] 

55 storage [63], printing [65] and/or report writing [66]. The system is thereafter returned to the starting point 
for receipt of the next data file. 

An important aspect of the invention is the file naming convention mentioned above. A three (or more) 
character file suffix is utilized which is equivalent to the "target" destination address (i.e., telephone number) 
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to which the file is to be transmitted. Valid entries are any combination of alphanumerics (i.e., a-z, 000-999), 
which are then related to a table which specifies from one to any number of target telephone numbers to be 
utilized for file transfers. 

File name identifiers (prefixes) are composed of eight or more alphanumeric characters which cor- 
5 respond to the individual user's internal file naming conventions. The latter forms the basis for the resulting 
file collating sequence. An example might be a series of image files for a medical diagnostic procedure 
where the first five characters are the x-ray number of the patient, followed by the image number where: 

- R1 2345001 is the file name. 

- R12345 is the x-ray number. 

70 - 001 is the image number for that patient. 

Thus, files conforming to this format would be directed as follows: 

R1 2345001 .XXX, R12345002.xxx. R1 2345003.xxx 
All of the above file names contain the suffix xxx. The table entry identifies that suffix as telephone numbers 
1-n and those numbers are loaded for subsequent dialing. Files are sorted by prefix and loaded for 

75 transmission and are received at the remote location in the collated order. In the event that the user 
requires file transfers between minicomputers and mainframes, the invention also provides terminal 
emulation capability for the IBM 3270 and 3101, the DEC VT100, 220 and 240 and Telex and TTY modes 
as well as other terminal emulations and transmission protocols. 

While the embodiment just described may employ single byte (such as the 8250 chip) communications 

20 buffers another embodiment employs multiple byte communications buffering (such as the 16550AH FIFO 
interrupt driven buffer.) Yet another embodiment eliminates the serial port/UART (universal asynchronous 
receiver/transmitter) combination completely and substitutes the parallel computer port as the communica- 
tions interface medium. The latter embodiment provides data transfers at rates exceeding four times that of 
a standard serial port modem connection. 

25 While the source code to be executed may reside on the computer's disk drive for loading into its 
random access memory, it may also reside in EPROMS as an electronic disk. The latter embodiment 
provides greater speed of execution, enhanced security from tampering and greater ease of installation. 

On the following pages, the software of the preferred embodiment is presented. It will be apparent from 
certain of the annotations that this software is adapted to a medical application, specifically that of 

30 transmitting image files between locations. However, it will be apparent to those skilled in the art that the 
present invention can be utilized to transmit all manner of data files and is not limited by the application 
presented. Thus it will be apparent to those skilled in the art that new applications for the invention may be 
devised without departure from the spirit and scope of the invention as claimed. 
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* SCRIPT: CONFIG. SCR 

* FUNCTION: Front-end interface to CONFIG ♦DAT 

on error 
clear 

* Subordinate phy's support on ? 
global &HIER 

if (&1 = HIER) then &HIER = Y 
else &HIER = N 

* Get script application drive 
&APPLDR = &option(SDRIVE) 

* Make sure path is suffixed with a backslash 

if (&substr(&APPLDR, ^length ( &APPLDR) , 1) <> 'X') then 
&APPLDR = "&APPLDR\" 

&MESSAGE2 = "TAB-Next Field ENTER-Done Fl-Phy/Tel Maint 
ESC-Abort FlO-Help" 
20 &MESSAGE1 = 

& PATHS PEC ^ 

&SPEEDCHK = "50, 75, 110, 135, 150, 300, 450, 600, 1200, 
1800, 2000, 2400, 3600, 4800, 7200, 9600, 14400, 19200, 38400," 

&PORTCHK = "COMl, COM2, COM3, COM4, COM5 , C0M6 , C0M7 , COM8 , 
HOSTS, IBMSHARE, NONE, IRMA, IBM, FORTE, IBMLDFT, IBMSDFT, SPECIAL, 
25 NPCSHARE, NACSHARE, USERl, USER2 , COM3PC, C0M4PC, GATEWAY," 

&MODCHK = »T, CD, 9, H, S, HV, PC, AX, QX, MT, C, P, V, W, 
X, R, B, BI, E, US, O, I, M, A, D, HC," 

&FIRSTSUB = Y 



* If configuration file exists, then continue 

if exists &APPLDR. CONFIG, DAT then goto CONTl 

* Otherwise, init all vars in panel to blanks 

gosub INITBL 1 
goto CONT3 

-CONTl 

* Open configuration file 

open & APPLDR.CONFIG.DAT as #1 for input 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 



* loop to read all records 
&RECCNT = 0 
&ELEM = 1 
45 loop READREC * 

read file #1 &RECSTR ;* read a record 

if not found then goto CONT2 ;* if EOF then jump out 

&RECCNT = &RECCNT + 1 ;* increment record counter 

50 
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* If 1st record being processed, then assign to path-specification 
if (&RECCNT = 1) then &PATHSPEC = &trim(&RECSTR) 
then goto READREC 



argstring &RECSTR 
parse . . , 



;* break-out tokens 

•* use tilde as delimeter 



70 



15 



20 



* Check for illegal # of tokens 

if {&N <> 6) then read line &Q1 "qlllegal # of tokens in 
record AELEM - Record ignored. Press ENTER." 

then 

&ENT&ELEM="" ; &NUM&ELEM=" " ; &SPEED&ELEM="" ; &PTYPE&ELEM=" " ; &MTYPE&EL 
EM= " " ; & NAME & E LEM- " " 

* Otherwise, assign token from record to panel vars 

else &ENT&£L£M=&trim(&l) 
else &NUM&ELEM=&triin(&2) 
else &SPEED&ELEM=&trim{&3) 
else &PTYPE&ELEM=&triiQ(&4) 
else &MTYPE&ELEM=&trim(&5) 
else &NAME&ELEM=&triin(&6) 
&ELEM = &ELEM + 1 

-READREC 



25 



-CONT2 

* Clear all remaining panel vars 
gosub INITBL &ELEM 
close #1 



-CONT3 



display panel CONFIG 



30 
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40 



45 



-CONT4 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(^RESPONSE <> FIO) and (&RESPONSE <> Fl) 
then smsg "qlnvalid response ..." 
then goto C0NT4 

if (&RESPONSE ~ ESCAPE) then smsg "qModif ications not saved 
... Exiting to IX)S." 

then wait 3 
then stop 

if (&RESPONSE = FIO) then gosub HELPl 
then goto CONT4 

if {&RESPONSE <> Fl) then goto CONT56 

* Assumed tel maint ops 

gosub SAVEDATA Fl 
&HRC = &rc 



* Errors in COMM SCREEN ? 

if (&HRC = 1) then goto CONT4 



50 



55 



BNSDOCID: <EP ^0512174A1 I > 



10 



15 



25 



55 



EP 0 512 174 A1 



* If 1st time request for tel maint then init 
if (&.FLAG1 = &FLAG1) then &FLAG1 = Y 
then &PG = 0 
then &DPG = 1 

then smsg •*qOne moment please ..." 
then gosub REAOTEL 
smsg "q " 
&CURUPD = N 

-DISPAG 

display panel CONFIGTO.PNL 



Place cursor on particular field ? 

if (&CURUPD = Y) then display cursor &LASTFLD 
-CONT99 

&MESSAGE1 = 

if (&HIER = Y) then &STUFF = "F2-Subordinate Physician's 



else &STUFF = 

if (&PG = 0) then &MESSAGE1 = "TAB-Next Field ENTER-Done 
PGDN-Next Page Fl-Comm Maint" 

then &MESSAGE2 = "&STUFF ESC-Abort FlO-Help" 
20 if (&PG = 9) then &MESSAGE1 = "TAB-Next Field ENTER-Done 

PGUP-Previous Page Fl-Comm Maint" 

then &MESSAGE2 = "&STUFF ESC-Abort FlO-Help" 
if (&PG >= 1) and (&PG <= 8) then &MESSAGE1 "TAB-Next 
Field ENTER-Done PGDN-Next Page PGUP-Previous Page" 

then &MESSAGE2 = "&STUFF Fl-Comm Maint ESC-Abort 
FlO-Help" 

display output 

display input &RESPONSE 

* Valid responses 

30 if (&RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 

(&RESPONSE <> FIO) and (&RESPONSE <> Fl) and (&RESPONSE <> F2) and 
(^RESPONSE <> PGDN) and (&RESPONSE <> PGUP) and (&HIER = Y) 

then smsg "qlnvalid response ..." 

then goto CONT99 

35 if (&RESPONSE <> ESCAPE) and (^RESPONSE <> ENTER) and 

(&RESPONSE <> FIO) and (&RESPONSE <> Fl) and (&RESPONSE <> PGDN) 
and (&RESPONSE <> PGUP) and (&HIER = N) 

then smsg "qlnvalid response ..." 
then goto CONT99 

* Check for pages 1 and 10 for Page Up and Page Down limits 

if (&RESPONSE = PGUP) and (&PG = 0) then smsg "qNo more 
previous pages ..." 

then goto CONT99 

if (&RESPONSE = PGDN) and (&PG = 9) then smsg "qNo more 
45 pages available ..." 

then goto CONT99 

if (&RESPONSE <> FIO) then goto CONT23 

* HELP ops. 
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display save 

if (&HIER = Y) then display panel CONFIGHT 
else display panel CONFIGHX 

-USERINP2 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) then goto USERINP2 
display restore 
goto C0NT99 

-CONT2 3 

* ESCAPE ops. 

if (&RESPONSE = ESCAPE) then smsg "qModif ications not saved 
Exiting to DOS," 
then wait 3 
then stop 

* Fl ops.; jump back to comm maint 

if (&RESPONSE = Fl) then &MESSAGE2 = "TAB-Next Field 
ENTER-Done Fl-Phy/Tel Maint ESC-Abort FlO-Help" 
then &MESSAGE1 = 
then goto CONT3 



* F2 ops. (subordinate phy's) 
&CURUPD = N 
if (^RESPONSE = F2) 
then gosub DOSUBORD 
then &CURUPD = Y 
then goto DISPAG 



if (&RESPONSE <> ENTER) then goto CONT34 



* ENTER ops. 

gosub SAVEDATA 
&hrc = &RC 



* If any invalid data in comm maint screen, then show user 
if (&hrc = 1) then goto C0NT3 

-CONT34 



* For page up/down increment/decrement page counters 
if (&RESPONSE = PGUP) then &PG = &PG - 1 
then &DPG = iDPG - 1 
then goto CONT99 

if (^RESPONSE = PGDN) then &PG = &PG + 1 

then &DPG ^ &DPG + 1 

then goto CONT99 

smsg "qlnvalid response ..." 

goto CONT99 



* TEL MAIN OPS 

* User pressed ENTER 
-CONT56 

gosub SAVEDATA 
&hrc = &RC 
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/5 



20 



if (&hrc = 1) then goto C0NT4 

* Subroutine to read TEL, DAT file into ram vars 
-READTEL 

5 

* If TEL. DAT file doesn't exists, then initialize panel vars in 1st 
screen 

if not exists &APPLDR.TEL,DAT then gosub INITPG 
then return 

open &APPLDR.TEL.DAT as #1 for input 
?o &TELREC 0 

loop TELl * 

read file #1 &RECSTR 

if not found then goto CONT78 ;* EOF ? 

argstring &RECSTR 
parse . . * 

if (&N <> 2) then goto TELl ;* if not 2 tokens 

then invalid 

&TELREC = &TELREC + 1 

&P&TELREC = &1 ;* assign physician 

&T&TELREC = &2 ;* assign tel. # 

-TELl 
-CONT78 

close #1 

gosub INITPG ;* init unused fields to null 
return 

25 * Subroutine to init vars in panel 

-INITPG 

* NOTE: 57 phy ' s per screen X 10 screens 

&XCNT = 1 

loop DOINIT 570 

30 * If var is not initialized yet, then set to null 
if (&.P&XCNT = &P&XCNT) then &P&XCNT = 
if (&-T&XCNT = &T&XCNT) then &T&XCNT = 
&XCNT = &XCNT + 1 

-DOINIT 

return 

35 

* Subroutine to init vars in panel 
-INITBL 

&PARM1 = &1 
&CNT = &1 

loop INITA while (&CNT <= 8) 



40 



&ENT&CNT="" ; &NUM&CNT==" " ; &SPEED&CNT=" " ; &PTYPE&CNT==" " ; &MTYPE&CNT=" »' 
;&NAME&CNT=" " 

&CNT = &CNT + 1 

45 -INITA 

return 

* Subroutine to save panel data 
-SAVE DATA 

50 
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&PARM1 = &1 



* Make sure receive path is valid 

&PATHSPEC = &triin(&PATHSPEC) 

if (&substr(&PATHSPEC, & length (&PATHSPEC) , 1) <> '\') then 
&HSPEC = "&PATHSPEC\*- 

else &HSPEC = "&PATHSPEC*.*" 

if (&fvalid(&HSPEC) = YES) then goto CONT5 

smsg "qRECEIVE PATH invalid." 

display cursor 1 

return 1 



* Validate each entry 
-C0NT5 

&CNT = 1 

loop VALIDATE 8 

&ENT&CNT = &triin(&ENT&CNT) 

* If entry name is null, then get next record 

if (&ENT&CNT = then goto INCR 

* Validate port # 

&NUM&CNT = &triin(&NUM&CNT) 

if (SNUMfiCNT > 0) and (&NUM&CNT < 16) then goto CONT6 
if (&KUM&CNT = "ANY") or (&NUM&CNT = "SHR") then goto 



CONT6 



smsg "qlnvalid PORT # for Entry Name &ENT&CNT" 
substitute display cursor Scale (&CNT -1*6+3) 
return 1 



-CONT6 

* Validate modem speed 

&SPEED&CNT = &trim(&SPEED&CNT) 

if (&instr("&SPEEDCHK", "&SPEED&CNT, ") > 0) then goto 

C0NT7 

smsg "qlnvalid MODEM SPEED for Entry Name &ENT&CNT" 
substitute display cursor &calc{&CNT - 1 * 6 4) 
return 1 



-C0NT7 

* Validate Port Type 

&PTYPE&CNT ^ &trim(&PTYPE&CNT) 

if (&instr("&PORTCHK","&PTYPE&CNT,") > 0) then goto CONT8 
smsg "qlnvalid PORT TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+5) 
return 1 



-CONT8 

* Validate Modem Type 

&MTYPE&CNT = &trim(&MTYPE&CNT) 

if (&instr("&MODCHK", "fiMTYPEStCNT,") > O) then goto CONT9 
smsg "qlnvalid MODEM TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+6) 
return 1 
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-CONT9 

* Validate Modem Name/Class 

&NAME&CNT = &triin(&NAME&CNT) 

if ("&PTYPE&CNT" = "HOSTS") then goto CHECKHST 
else goto INCR 

* Since PORT TYPE is HOSTS, make sure MODEM NAME/CLASS has 3 tokens 
separted by 

* a blank 
-CHECKHST 

if (&NAME&CNT = then &FLAGNG = Y 

else &FLAGNG = N 

else argstring &NAME&CNT 

else parse " " . • . 

if (&N <> 3) or (&FLAGNG = Y) then smsg "qlnvalid format 
for MODEM NAME/CLASS for Entry Name &ENT&CNT" 

then substitute display cursor Scale (&CNT -1*6+7) 
then return 1 



20 -CONTIO 
-INCR 



&CNT = &CNT + 1 

-VALIDATE 

smsg "qUpdating configuration files . . • one moment please" 

* If only validation required, then return 

if (&PARM1 = "Fl") then return 0 

* All fields were valid. Write records to configuration file. 

open &APPLDR. CONFIG. DAT as #1 for output 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 

write file #1 "&PATHSPEC" 

&CNT = 1 
loop WRITEl 8 



* If Entry Name is blank, then don't write this record 
if (&ENT&CNT = "") then goto NEXTREC 
40 writefilel 
"&ENT&CNT-&NUM&CNT-&SPEED&CNT-&PTYPE&CNT-&MTYPE&CNT-&NAME&CNT" 
-NEXTREC 

&CNT = &CNT + 1 

-WRITEl 

close #1 



* If tel # panel never accessed, then skip write 

if (&.P1 = &P1) then goto DONE2 

* Sort physician/telephone arrays 

sortarray &P 570 ORDER &T 
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open &APPLDR.TEL, DAT as #1 for output 

&CNT = 1 

loop WRITE2 570 

if (&triin(&P&CNT) = or {&trim(&T&CNT) = "") then goto 

INCR3 

write file #1 "&left (&trim(&P&CNT) , 3) -&trim(&T&CNT) 

-INCR3 

&CNT = &CNT + 1 

-WRITE2 

close #1 

-DONE 2 

* If subordinate phy screen never accessed, then skip write 

if (fitFIRSTSUB = Y) then goto DONE3 
sortarray &M &HTOT 

open &APPLDR.HIER.DAT as #1 for output 
&CNT = 1 

loop WRITESUB &HTOT 

if (&triin(&M&CNT) = then goto WRITESUB 

write file #1 "&M&CNT" 
-WRITESUB &CNT = &CNT + 1 
-DONE3 

smsg "qUpdate to configuration files complete..." 

wait 2 

stop 

* Help routine 
-HELPl 



* Make sure user's cursor is on an input field 

if (&substr (&SFIELD, 1, 1) = "T") or ( fisubstr (&SFIELD, 1 , 1) 
= "O") or (&substr(&SFIELD,l,l) = "0") 

then sTnsg "qWhen selecting help, make sure cursor is on an 
input field . " 

then return 

&FLD = &substr(&SFIELD,2) ;* get input field number 

display save ;* save video 

* Help for receive file 

if (&FLD = 1) then display panel CONFIGHl 
then goto USERINP 

if ((&FLD \ 6) = 0) then &FLD = 5 
else &FLD = &FLD \ 6 - 1 

* Help for entry name 

if (&FLD = "1") then display panel CONFIGH2 
then goto USERINP 

* Help for port number 

if (&FLD = "2") then display panel CONFIGH3 
then goto USERINP 

* Help for modem speed 

if (&FLD = "3") then display panel CONFIGH4 
then goto USERINP 
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* Help for port type 

if (&FLD <> ••A") then goto CONTll 

5 -C0NT12 

display panel C0NFIGH5 

-C0NT13 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

;o if (&RESPONSE <> PGDN) then goto CONT13 

display panel C0NFIGH6 

-CONT14 

display input &RESPONSE 

if (^RESPONSE = ESCAPE) then display restore 
75 then return 

if (&RESPONSE <> PGUP) then goto CONT14 
goto CONT12 

* Help for modem type 
-CONTll 

20 if (&FLD <> "5") then goto CONT15 

-C0NT16 

display panel C0NFIGH7 

-CONT17 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
25 then return 

if (&RESPONSE <> PGDN) then goto CONT17 
display panel CONFIGH8 



30 



35 



-CONT18 

display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if {&RESPONSE <> PGUP) then goto CONT18 
goto CONT16 

"C0NT15 

* Help for modem name or class 

if (&FLD <> "0") then goto USERINP 

-C0NT19 

display panel CONFIGH9 

-CONT20 

display input &RESP0NSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGDN) then goto CONT20 
display panel CONFIGHA 

45 -CONT21 

display input &RESPONSE 

if (&RESPONSE - ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGUP) then goto CONT21 
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goto C0NT19 

* Wait until user presses escape 
-USERINP 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) then goto USERINP 
else display restore 
else return 

* Subroutine for subordinate phy ops. 
-DOSUBORD 

* Make sure user's cursor is on an input field 
if (&substr{&SFIELD,l,l) = "T") or (&substr(&SFIELD, 1, 1) 

= "O") or (&substr (&SFIELD, 1, 1) = "0") 

then smsg "qWhen selecting F2 , make sure cursor is on an 
input field." 

then return 

* Get index to array &P 
&FPOS = &substr(&SFIELD,2)/2 
&RPOS = &substr (&SFIELD, 2) \2 

&LASTFLD = &substr(&SFIELD, 2) 
&FPOS = &PG * 57 + &FPOS + &RPOS 

* Make sure physician specified in input field 

25 if (&triin(&P&FPOS) ^ "") then smsg "qNo physician specified 

in input field." 

then return 

* If 1st time in subord. ops, then read HIER.DAT into RAM 

if (&FIRSTSUB = N) then goto CONT67 
30 &FIRSTSUB = N ;* set 1st time flag to NO 

&HTOT = 0 

if not exists &APPLDR. HIER. DAT then goto CONT67 
open &APPLDR. HIER. DAT as #1 for input 
loop READHIER * 

read file #1 &RECSTR 
if not found then goto OUTl 
&HTOT = &HTOT + 1 
&M&HTOT = &RECSTR 

-READHIER 
-OUTl 

close #1 

-CONT67 



* Find match for current physician against master phy in HIER.DAT 

&HCNT = 1 

loop CHECKHR &HTOT 
45 if (&P&FPOS = &substr(&M&HCNT, 1, 3) ) then goto CONT91 

&HCNT = &HCNT + 1 

-CHECKHR 

* No match 

&XXC = 1 
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fcHCNT = END ;* flag for new element in array &M 

goto CONT92 

-CONT91 

* Break out subordinate phy's into vars for panel 

argstring &M&HCNT 
parse . * . 

* If only master phy specified, then skip subordinate process 

&XC =2 ;* start at 2nd parm 

if (&N = 1) then &XXC = 1; then goto CONT92 
loop DUMPSUB &calc(&N - 1) 
&XXC = &XC - 1 

&S&XXC B &&XC ;* assign sub phy 

&XC = &XC + 1 

-DUMPSUB 

&XXC = &XXC + 1 

-C0NT92 

* Clear all unused panels fields 

loop CLEARALL while (&XXC <= 18) 
&S&XXC = 
&XXC = &XXC + 1 

-CLEARALL 

&MESSAGE3 = 

&MESSAGE4 = "TAB-Next Field F2-Phy/Tel Maint FlO-Help" 
&MESSAGE5 = "&P&FPOS" ;* assign master phy to panel var 
display panel CONFIGTl.PNL overlay 

-CONT4 0 

display input &RESP 

if (&RESP <> F2) and {&RESP <> FIO) then smsg "qinvalid 
response ..." 

then goto CONT4 0 

* Back to tel maint screen ? 

if (&RESP = F2) then gosub SAVESUB 
then return 

if (&RESP <> FIO) then goto CONT40 

* HELP ops. 

display save 

display panel CONFIGHS 

-USERINP3 

display input &RESP 

if (&RESP <> ESCAPE) then goto USERINP3 
display restore 
goto CONT40 

* Subroutine to save subordinate phy panel variables to a ram array 
-SAVESUB 

* Construct new string in HIER.DAT format 

* If flag to append to end of array &M, then increment array 
counter 

* NOTE: &HTOT represents # elements in array &M 
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if (&HCNT = END) then &HTOT = &HTOT + 1 
then & INDEX = &HTOT 

* Otherwise use current index to array &M 
else &INDEX = &HCNT 

&XXC = 1 

&M&INDEX = "&left(&trim(&P&FPOS) ,3, • •)-•• ;* assign 

master phy 

loop CONSl 18 

if (&trim(&S&XXC) = ••") then goto INCR2 

&S&XXC = "fileft (&triin(&S&XXC) ,3, • 

&M&INDEX = "&M&INDEX. .&S&XXC.-" ;* append subordinate 

phy 

-INCR2 

&XXC = &XXC + 1 

-CONSl 

return 



19 



20 



25 



40 



45 



50 



55 



EP 0 512 174 A1 



* Script: DIAG.SCR 

* Function: Main driving script for Diagnostic PC 

5 

* Globalize vars 

on error 

* Debug on ? 

if (&1 = "DEBUG") then define &DEBUG = "Y" 
10 then strace newlog 

else define &DEBUG = "N" 

* Subordinate phy • s support on ? 

global &HIER 

if (&1 = HIER) or (&2 = HIER) then. &HIER = Y 
^5 else &HIER = N 

* If sequence log file exists, then erase it 

if exists logseq then quiet erase logseq 

* Provide mechanism to allow user to abort via function key FIO 
global &GETOUT 
&GETOUT = N 

on attnkey FIG &GETOUT = Y 
clear 

smsg "qlnitialization in progress one moment please." 

global &APPLDR ;* application drive 

global fitNUMPORTS ;* # of avail, ports on PC 

global &NUMTEL ;* # Of telephone #s 

30 global &NUMPHY ; * # of physicians to call 

(PC's to call) 

global &RUNREL 

global &TOTMAST ;* tot # of master phy's 

global &ABORT ;* editor abort flag 

35 &TOTFILES = O 

* Get script application drive 

&APPLDR = &option(SDRIVE) 



* Make sure path is suffixed with a backslash 

if (fisubstr (&APPLDR, & length ( &APPLDR) , 1) <> 'X') then 
&APPLDR = "&APPLDR\" 

* Sort telephone # file (TEL. DAT) by physicians initials (MAJOR) 
to tel # (MINOR) 

if not exists &APPLDR. TEL. DAT then clear 

then read line &Q1 "q&APPLDR.TEL. DAT does not exists. 
Application cannot continue. Press ENTER." 
then quiet stop all 

edit &APPLDR.TEL.DAT ex SORTTEL.EDS NODISPLAY 
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* Read configuration and telephone files into RAM vars 
ex READCONF 

* Make sure there are files needed to be transferred 
if not exists &OUTDIR.*.* then clear 

then smsg "qThere are no outstanding files in directory 

&OUTDIR" 

then read line &Q1 "qthat need to be transferred. Press 

ENTER. " 

then quiet stop all 

* Make sure temp directory exists as subdirectory to outgoing 
directory 

quiet mkdir &OUTDIR.TEMP 

* Check if user pressed FIO to abort 
if (&GETOUT = Y) then goto ALLDONE2 

* Start multiple sessions 
ex STARTSES 
&HRC = &retcode 

* If any failures on sessions, then stop script and exit relay 
if (&HRC = 1) then quiet stop all 

* Check if user pressed FIO to abort 
if (&GETOUT = Y) then goto ALLDONE2 

smsg "qSession start successful..." 

* If no subordinate phy's support 

if (&HIER = N) then goto CONT91 

30 * Load master/subordinate phy*s hierchical structure into ram and 

store the 

* total number of master phy's 

if exists &APPLDR.HIER.DAT then goto RDHIER 

-CONT91 
^5 &TOTMAST = 1 

loop DOPHY &NUMPHY 

global &M&TOTMAST; &M&TOTMAST = "iRPHYSTOTMAST, 
&TOTMAST = &TOTMAST + 1 

-DOPHY 

&TOTMAST = &NUMPHY 
goto C0NT82 
•RDHIER 

&TOTMAST = 1 

open &APPLDR.HIER. DAT as #1 for input 

loop DOMAST * 
45 read file #1 &RECSTR 

if not found then goto C0NT81 

global &M&TOTMAST;&M&TOTMAST &RECSTR 

&TOTMAST = &TOTMAST + 1 

-DOMAST 
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-CONT81 

close #1 

&TOTMAST = &TOTMAST - 1 

-CONT82 

* Sort files in outgoing directory by physician (MAJOR) to xray id 
(MINOR) 

* and load into ram array 

& ABORT = N 

edit tempx ex SORTLOAD.EDS NODISPLAY 
if (& ABORT = Y) then goto ALLD0NE2 

smsg "qBreaking out master files into sub-files . . . 

* Erase any files in temporary directory 

quiet erase &OUTDIR.TEMP\* . * 

* load into ram array 

open temp as #1 for input 

&HCMAP =0 ;* # records written to MAP. DAT 

open &OUTDIR. TEMP\MAP.DAT as #4 for output 
loop LOADREC * 

read file #1 &RECSTR 

&RECSTR = &upper(&RECSTR) 



* If EOF, then done loading 
if not found then goto CONTl 

* Make sure there are 3 characters for extension 

if (&length(&trim(isubstr(&RECSTR, 10, 3))) <> 3) then 
goto LOADREC 

* Don't process any directories 

30 if (&substr (&RECSTR, 16, 5) = "<DIR>") then goto LOADREC 

&TOTFILES = &TOTFILES +1 ;* increment file 

counter 

* Store filename 

&FILE&TOTFILES = " &tr im ( &substr ( &RECSTR , 1, 
8) ) . &triTT;(&substr (&RECSTR, 10, 3) ) " 

* Store master physicians initials. For subordinate phy ' s 
operations, extract 

* position 13-15 of record (master phy.) and for no subordinate 
phy's, extract 

* position 10-12 (just extension of filename) . 
if (&HIER = N) then &EXT&TOTFILES 

"&trim(&substr(&RECSTR, 10, 3))" 

else &EXT&TOTFILES = "&trim (fisubstr ( &RECSTR, 13, 3))" 



* Init status of xfer (O = Outstanding) 

define &STAT&TOTFILES = "O" 

* Split file into even bytes for each remote port 
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gosub SPLIT &FILE&TOTFILES 

-LOADREC 
-CONTl 

close #1 
close #4 

* If no records written to MAP. DAT then erase it 

if {&HCMAP - 0) then quiet erase &OUTDIR.TEMP\MAP. DAT 

* Erase temporary file 

cjuiet erase temp 

* Check if user pressed FIO to abort 

if (&GETOUT = Y) then goto ALLDONE2 

* Set completion flag for physicians with no files to be sent 

&Z = 1 

loop CHECKFIN &NUMPHY 
&Y = 1 

loop CHECKEXT &TOTFILES 

* Match on file extension with physician in master list ? 

if (&EXT&Y = &RPHY&Z) then goto J99 
&Y = &Y + 1 

-CHECKEXT 

&FIN&Z = "Y" ;* set completion flag for 

physician 
-J99 

&Z = &Z + 1 

-CHECKFIN 

* Get directory relay gold is running in 

global &RUNREL 
&RUNREL &RDRIVE 

if (&substr (&RUNKEL,&length(&RUNREL) , 1) <> 'X') then 
&RUNREL = "&RUNREL\" 

* Copy application online profile to relay's directory 

if exists &RUNREL. RELAY. ONP then copy file &RUNREL. RELAY . ON P 
&RUNREL . RELAY . HLD 

then copyfile &APPLDR. RELAY . ONP &RUNREL. RELAY . ON P 
else copyfile &APPLDR. RELAY . ONP &RUNREL. RELAY . ON P 

smsg "qOispatcher starting ..." 
&CNT = 1 

&HIGHPRI =1 ;* pointer to highest priority 



record 



loop INFIN * 



50 



* Check if user pressed FIO to abort 

if (&GETOUT = Y) then goto ALLD0NE2 

* debug line to shorten traces 

if (&DEBUG = Y) then wait 2 
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* If current record's file has already been sent or file is already 
in 

* progress of being sent, then skip to next record 

if (&STAT&CNT = "S") or (&STAT&CNT = "Q") then goto 

C0NT66 

* Get # of ports available on remote PC 

gosub NUMPORT 

&CURRNPT = firetcode ;* store # of ports remote PC has 

* Loop through ports on central PC 

&CX = 1 

&PCNT = 0 ;* init # of ports used by 

physician (remote pc) 

&OFFAVAIL = ;* init 1st offline session 

available 

loop XFERCHK &NUMPORTS 

* If offline session available, then assign relative session # 

if (&OFFAVAIL = and (&HSTAT&CX = "OFFLINE") then 

&OFFAVAIL = &CX 

* If match on physician, then increment counter for # of ports this 
physician 

* is currently using 

if (&EXT&CNT = &SPHy&CX) then &PCNT = &PCNT + 1 

then &CTEL&PCNT = &STEL&CX ;* store tel. # in 

use 



* If match on physician and port status is online and idle and 
there is a file 

* outstanding 

30 if (&EXT&CNT &SPHY&CX) and (&HSTAT&CX = "ONLINE") and 

(Sinstr (OI, &STAT&CNT) > 0) 

else goto CONT2 9 



* Make sure we have the next outstanding (sequential) file to send 
to this 

* physician 

gosub CHKOUT "&EXT&CNT" 

* Update ptr to record 

&CNT = &YCNT 

* Call subroutine to assign next sub-file (if any), and update 
status • s 

* (ie. 5rSPL and &STAT) 

gosub ASSIGNFL &CX &CNT 

* If filename is null (no outstanding files) , then get next record 

if (&XFILE&CX = "") then goto C0NT66 

substitute define &.SPHy&CX = "&EXT&CNT" ;* assign 
physicans initials 



50 



55 



24 



10 



15 



20 



25 



40 



45 



EP 0 512 174 A1 



substitute define & . IND&CX = &CNT ;* assign index to 

record 

define &HSTAT&CX = "ONXFER" assign command 

gosub SHOWDISP "&f ext (&FILE&CNT) "&FILE&CNT" "ONXFER" 
"&CNT" "&XFILE&CX" 

gosub SHOWALL 
goto C0NT66 

-CONT29 

&CX = &CX + 1 

-XFERCHK 

* If no offline session available, reset record ptr. back to 
beginning 

* of highest priority physician 

if (&OFFAVAIL - then &CNT = &HIGHPRI 

then goto CONT67 

* If # of ports in use on current remote is less than the total # 
of ports 

* available on remote, then get next available tel # for remote PC 

if (&PCNT < &CURRNPT) then gosub GETNEXTN 
then &HRC = &retcode 

* Else, no more ports available for current physician 

else goto CONT66 

* If no tel, # was found, then process next record 

if (&HRC = 0) then goto CONT66 



* Since a # was found, make sure we have next outstanding 
(sequential) file to 

30 * send to this physician 

gosub CHKOUT "&EXT&CNT" ;* get proper record ptr. for 
this physician 

&CNT ^ &YCNT ;* reset original record ptr. to proper 

record ptr. 

35 * Update status var for session 

* Call subroutine to assign next sub-file (if any) , and update 
status * s 

* (ie. &SPL and &STAT) 
gosub ASSIGNFL &OFFAVAIL &CNT 



* If filename is null (no outstanding files) , then get next record 

if (&XFILE&OFFAVAIL = "") then goto C0NT66 

substitute define & . SPHY&OFFAVAIL = "&EXT&CNT" ;* assign 
phy. initials 

substitute define & . STEL&OFFAVAIL = &NEWNUM ;* assign 

tel. # 
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define &XREQ&OFFAVAIL = "CALL" ;* assign sub-command 



substitute define & . IND&OFFAVAIL = &CNT ;* assign index 

to record 

define &HSTAT&OFFAVAIL = "OFFXFER" 

gosub SHOWDISP "&f ext ( &FILE&CNT) " "&FILE&CNT" "OFFXFER" 
"&CNT" "&XFILE&OFFAVAIL" 
gosub SHOWALL 

-CONT66 

&CNT = &CNT +1 ;* increment record ptr. 



* If record ptr has reached last record, then reset ptr, to 1st 
record 

if (firCNT > &TOTFILES) then &CNT 1 

-CONT67 

* If any online sessions are idle (no xfer in progress) , check if 
all files 

* were sent for this physician 

&CX =1 ;* index for session 

counter 

loop -CHECKST &NUMPORTS 

* If session is not online and idle 

if (&HSTAT&CX <> "ONLINE") then goto CONT69 

* For sub-file ops., update &STAT var using &SPL array for 
verification 

&BG = 1 

loop CHECKFL2 fitTOTFILES 
gosub CHECKFL &BG 
&BG = &BG + 1 

-CHECKFL2 

* Since session is online and idle, check if all files were sent 
for this 

* physician 

gosub CHKOUT "&SPHY&CX" 
&HRC = &retcode 

* If no outstanding files and no transfers for this physician 

if (&HRC = 0) then goto C0NT74 

* If physician has transfers in progress but none outstanding 

if (&HRC = 2) then define &XREQ&CX "HANGUP";* assign 
command to session 

then define &HSTAT&CX = "HANGUP" ;* update status var 

for session 

then goto CONT69 

* Implied outstanding files for this physician 

* Otherwise, send file 
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* Call subroutine to assign next sub-file (if any), and update 
status * s 

* (ie. &SPL and &STAT) 

5 gosub ASSIGNFL &CX &YCNT 

* If filename is null (no outstanding files) , then get next record 

if (&XFILE&CX « "••) then goto CONT69 

10 substitute define &*SPHY&CX = "&EXT&YCNT" ;* 

assign phy. initials 

substitute define &.IND&CX = &YCNT ;* assign index to 

record 

define &HSTAT&CX = "ONXFER" ;* update status var 

for session 

gosub SHOWDISP "&f ext ( &FILE&YCNT) " "&FILE&YCNT" 
"ONXFER" "&YCNT" "&XFILE&CX" 
gosub SHOWALL 
goto CONT69 



* Since no more files for this physician, hangup session 
-CONT74 

define &XREQ&CX = "HANGUP" ;* assign command 

to session 

define &HSTAT&CX = "HANGUP" ;* update status var 

for session 

* Update file xfer completion flag for this physician 
*temp line 

gosub UPDCOMPL &SPHY&CX 

* Check if all xfer's for all physicians is complete 

gosub STATDONE 
&HRC - firetcode 
wait 2 

* If all xfers completed, then wrap it up 

if (&HRC = 0) then goto ALLDONE 

-CONT69 

&CX = &CX + 1 

-CHECKST 

-INFIN 
-ALLDONE 

clear 

gosub SHOWALL 

s m 5 g 

ItQ* All 



smsg "q " 

smsg "q File transfers complete" 
50 smsg "q " 
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s n s g 

itq* *it 

smsg "q 
5 smsg "q " 

smsg "q *• 

* Erase any files in temporary directory 

quiet erase &OUTDIR.TEMP\*. * 

10 * If old online profile existed before application ran, then 
restore old profile 

* Otherwise erase online profile from relay's directory 

if exists &RUNREL. RELAY .HLD then copyfile &RUKREL* RELAY .HLD 
&RUNREL, RELAY . ONP 

then quiet erase &RUNREL. RELAY. HLD 
else &RUNREL. RELAY .ONP 

* Cancel all sessions 
* 

-ALLDONE2 

&KILLNUM =2 ;* init 1st session # to kill 

* Loop session #2 to last session 

loop KILLSESS while (&KILLNUM <= &calc ( &NUMPORTS + 1)) 

25 * Request to kill session 

gosub cancel &KILLNUM 
&HRC = &retcode 

* If unable to cancel session, alert user 

if (&HRO0) 

30 * smsg "WUnable to cancel session #&KILLNUM!" 
&KILLNUM = &KILLNUM + 1 

-KILLSESS 

* Produce summary file 
gosub SHOWALL FILE 



* Produce detail file 
gosub SHOWDET 

smsg "qFile transfer SUMMARY (by physician) in file 

LOGSUM. " 

smsg "qFile transfer in DETAIL (by file) in file LOGDET." 
smsg "qTransfer request SEQUENCE in file LOGSEQ." 

smsg "qApplication stopped ..." 

quiet stop all ;* thats it folks i! 

-CANCEL quiet session stop &1 
if (&RO0) return &RC 



28 



EP 0 512 174 A1 



smsg "QCancelling session Please Stand by," 

global &CANCEL 

&CANCEL = "NO" 

on timer 5 &CANCEL = "YES" 

loop -canwait while (&CANCEL="NO") 
quiet session status &1 
-CANWAIT if (&RO0) goto -CANSTOP 

-CANSTOP on timer 
return 0 

* 

* 

* Subroutine to loop through # of ports per PC table 

* 

-k 

-NUMPORT 

&XCNT = 1 

loop FINDPHY &NUMPHY 

* If match on initials, then return # of ports on remote PC 

if (&EXT&CNT &RPHY&XCNT) then return &RPT&XCNT 
&XCNT = &XCNT + 1 

-FINDPHY 

* No match found 

return 0 

* 

— * 

* Subroutine to get next available # for remote PC 

* 

it 

-GETNEXTN 

* loop through tel. #»s 

&XCNT = 1 

loop GETNUM &NUMTEL 

* if no ports currently in use by this physician 

if (&PCNT = 0) 
else goto CONT58 

* if match on physician, store 1st tel. # 

if (&EXT&CNT = &PHY&XCNT) then &NEWNUM = &TEL&XCNT 
then return 1 
goto C0NT59 

* loop through # of ports physician's PC is currently using 
-C0NT58 

&CT = 1 
&NEWNUM = "" 
loop TRAVl &PCNT 

* if match on physician and tel # is in use then get next tel# 
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if (&EXT&CNT = &PHY&XCNT) and (&TEL&XCNT = &CTEL&CT) 
then goto CONT59 

* if match on physician and tel # is not in use, then store tel 
# 

if (&EXT&CNT = &PHY&XCNT) and (&TEL&XCNT <> &CTEL&CT) 
and (&NEWNUM = then &NEWNUM = &TEL&XCNT 

&CT = &CT + 1 

-TRAVl 



* If a # was found physicians PC was not currently using, then set 
positive 

* return code 

if {&NEWNUM <> then return 1 

-CONT59 

'5 &XCNT = &XCNT + 1 

-GETNUM 

* No available tel # for current physician 

&NEWNUM = 
return 0 



* 

* 

* Subroutine to check if current session for physician has any more 

* files that need to be sent 

* . 

it 

-CHKOUT 

&CPARM * "&1" ;* store physicians initials 

* Loop through record array 

&YCNT =1 set index to beginning of array 



loop PERFCHK &TOTFILES 

* If match on phy. then jump out 

35 if (&EXT&YCNT = &CPARM) then goto CONT60 

&YCNT = &YCNT +1 ;* set index to next record 

-PERFCHK 

* Since we have index to 1st record for physician (&YCNT) , then 
40 check if 

* outstanding files exist 
-CONT60 

* Loop through records for physician 

&FLAGP = N ;* flag for in progress xfer's 

-^5 loop PERFl &TOTFILES 

* If outstanding file to send and match on physician then return 
a 1 

* (outstanding files to send) 

50 



55 



BNSDOCtD <EP 0512174A1 I > 



30 



i 



10 



15 



20 



35 



40 



55 



EP 0 512 174 A1 



if (&instr(OI, &STAT&yCNT) > 0) and (&EXT&yCNT = &CPARM) 
then return 1 

* If in progress xfer and match on physician, then set flag 

if (&STAT&YCNT = "Q") and (AEXT&yCNT = &CPARM) then 

&FLAGP = y 

&yCNT = &yCNT + 1 

* If physician changed and physician had xfer's in progress 

if (&EXT&yCNT <> &CPARM) and (&FLAGP = Y) then return 2 

* If physician changed and physician had no xfers in progress 

if (&EXT&YCNT <> &CPARM) and (&FLAGP « N) then return 0 

-PERFl 

return 0 ;* catch-all for no outstanding file to 

send 

* 



* Subroutine to update file transfer completion flag for a 
physician 

* (ie. all files were transferred for this physician) 

* 

★ 

25 -UPDCOMPL 

* Locate physician in array &FIN 

&ZCNT = 1 

&X1P = &1 ;* assign physicians initials 

loop LOCPHY &mJMPHY 

30 -k If physician match, then update status flag 

if (&X1P = &RPHY&ZCNT) then &FIN&ZCNT = "Y" 
then return ;* return to caller 

&ZCNT = &ZCNT + 1 

-LOCPHY 

return 

* « « . 

* 

* Subroutine to check if all xfer's are completed for all 
physicians 

* . 

* 

-STATDONE 

&ZCNT = 1 

* loop through status array 
45 loop CHKDONE &NUMPHY 

* if a physician has files outstanding then return a 1 

if (&FIN&2CNT = "N") then return 1 
&ZCNT = &ZCNT + 1 
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-CHKDONE 

* all transfers complete 
return 0 



* Subroutine to display transfer requests 

* — 

* 

-SHOWDISP 

clear 



&PARM1 = &1 

&PARM2 = &2 

&PARM3 = &3 

'5 &PARM4 = &4 



&PARM1" 



&PARM5 = &5 

open logseq as #3 for append 

s m s g 

*" 

write file #3 "&date fitime Transfer request for physician 



* Show sub-file 

if (&PARM20&PARM5) then smsg "q&time Request for 
physician: &PARM1 File: &PARM2 Sub-file: &PARM5" 

then write file #3 "File: &PARM2 Sub-file: &PARM5 PC 
session state: &PARM3" 

else smsg "q&time Request for physician: &PARM1 File: 

&PARM2" 

else write file #3 "File: &PARM2 PC session state: &PARM3" 

write file #3 "Index to record: &PARM4" 

smsg 





write 


f i 


1 e 


# 3 












close #3 










return 










* Subroutine to display 


status of xfer's 


by each 


physician 





-SHOWALL 

* If a paramter of 'FILE* is passed, then stats are written to 
LOGSUM 

&GPARM = &1 

if (&GPARM = "FILE") then &GPARM = Y 
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else &GPARM = N 



if (&GPARM = Y) then open LOGSUM as #2 for output 

then write file #2 »•* DATE: &date TIME: 

5 &tiine *»* 

then write file #2 " 

then write file #2 " Communication Status by 

Physician" 

then write file #2 ••Phy Total Files Sent In 

Progress Outstanding" 

else smsg "q Communication Status by Physician" 

else smsg "qPhy Total Files Sent In Progress 

Outstanding" 



&MCNT = 1 

&OLDPHY = "fitfext (&FILE&MCNT) " ;&FCNT = 0;&FSCNT = 0;&FDCNT 
= 0;&FOCNT = 0 

loop GETST &TOTFILES 
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* If physicians changed, then reset vars 

if (&fext(&FILE&MCNT) <> &OLDPHY) and (&GPARM = N) 

then smsg 
"q&left(&OLDPHY, 3) &left ( , 10) &lef t (&FCNT, 3 ) &lef t ( , 9) &lef t (&FSCNT, 3 
) &left(,8) &left(&FDCNT,2) &left(, 11) &lef t ( &FOCNT, 3) " 

if (&fext{&FILE&MCNT) <> &OLDPHY) and (&GPARM = Y) 

then write file #2 
"&left(&0LDPHY,3) &left(, 10)&left(&FCNT,3) &left(,9)&left(&FSCNT,3) 
&left( ,8) &left(&FDCNT,2) &left(, ll)&left(&FOCNT,3) " 

if (&fext(&FILE&MCNT) <> &OLDPHY) 

then &OLDPHY = &f ext ( &FILE&MCNT) 

then &FCNT =0 ;* total files 

then &FSCNT =0 ;* files sent 

then &FDCNT =0 ;* files being sent 

then &FOCNT =0 ;* files outstanding 

* Increment accumulators 

&FCNT = &FCNT + 1 
if (&STAT&MCNT = "O") then 
else if (&STAT&MCNT = "I") 
&FDCNT = &FDCNT + 1 

else if {&STAT&MCNT = "S") 
&MCNT = &MCNT + 1 

-GETST 

if (&GPARM = N) then smsg 
"q&left(&OLDPHY, 3) &left ( , 10) &lef t (&FCNT, 3 ) &lef t ( , 9) &lef t ( &FSCNT, 3 
) &left ( ,8) &left(&FDCNT, 2) &left( , 11) &lef t ( &FOCNT, 3 ) " 

else write file #2 
"&left (&OLDPHY, 3) &left ( , 10 ) &lef t ( &FCNT, 3 ) &lef t ( , 9) &lef t ( &FSCNT, 3 ) 
&left( ,8) &left(&FDCNT, 2) &left( , 11) &left (&FOCNT, 3 ) " 

else write file #2 

M* 

else close #2 



&FOCNT = &FOCNT + 1 
or (&STAT&MCNT = "Q") 

then &FSCNT = &FSCNT + 1 



then 



50 



55 



33 



BNSDOCID: <:PP 0519174A1 I > 



EP 0 512 174 A1 



10 



15 



20 



25 



40 



45 



return 



* Subroutine to display DETAIL report on xfer^s by file 

★ 

— ♦ 

-SHOWDET 

open LOGDET as #2 for output 

write file #2 "* ^ DATE: &date TIME: fitime 

it» 

write file #2 " " 

write file #2 " Communication Status by File" 

write file #2 " Transfer 
File Time Transfer Byte" 

write file #2 "Phy Filename Status Time 

Size Completed /Sec Port" 

&MCNT = 1 

loop GETST2 &TOTFILES 

* Map for display 

gosub DOBREAK 
&MCNT = &MCNT + 1 

-GETST2 

Close #2 
return 





* Subroutine to breakout tokens for detail report 

★ . 

* 

30 -DOBREAK 

* No sub-files 

if (&.SPL1&MCNT = &SPL1&MCNT) then goto C0NT99 

* Sub-files 

* Get # of subfiles 

35 & B X D 

&substr (&SPL1&MCNT, &calc(&instr (&SPL1&MCNT, '\ ") -1) , 1) 
&UCNT = 1 

&TOTBYT = 0;&TOTFT = 0 
&OUTSTAND = N;&HLDXCOM = 



* Loop for # of sub-files 

loop GETSUB &BXD 

&HXD = &UCNT.&MCNT 

argstring &SPL&HXD ;* breakout filename, status 
parse " , " ... 

&HFILE = &1 ;* filename 

&HLDST = &2 ;* file status (I/O/S) 

* Outstanding ? 

if (&HLDST <> S) then &STATUS = "Outstanding" 
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* Sent 



then &XTIME = "";&XSIZE = ""^-fiXCOM "";fitXBTSEC = 

"";&XPORT = 

then &REC&UCNT 
"&left( ' ' , 3) &left(,2) &left( ' (&HFILE) • , 12)&left (, 2) &lef t (&STATUS , 1 
1) &left{ , 1) &left(&XTIME, 11) &left(, 1) &right (&XSIZE, 8 ) &lef t ( , 4 ) &lef 
t(&XCOM,8) &left( , 4) &right(&XBTSEC,5) &lef t ( , 2 ) fitleft ( &XPORT, 5) " 

then &OUTSTAKD = Y 

then &UCNT = &UCNT + 1 

then goto GETSUB 

argstring &FTM&HXD ;* breakout xfer info 
parse ... 

&XTIME = &1;&XSI2E = &2;&XC0M = &3;&XPORT = &4 

* Accum. byte size 

if (&datatype(&XSI2E) = NUM) then &TOTBYT = &TOTBYT + 

&XSI2E 

&TOTFT = &TOTFT + &transl ( &xtime , ) ;* accum. 

ft time (seconds. hh) 

* If last sub-file, then store time xfer completed 

if (&BXD = &UCNT) then &HLDXCOM = &XCOM 



* Develop bytes/sec 

if (&XSIZE = 0) then &XBTSEC = "N/A" 

else &XBTSEC = &calc (&XSIZE*100/&transl ( &XTIME, •.•,"') ) 



* Develop xfer time 

if (&length(&XTIME) <=3) then &XTIME = "00 : 00 : OO&XTIME" - 

30 else&XTIME = 

"&hours(&substr (&xtime, 1 , &calc (&instr (fixtime, • . • )-l) ) ) .&substr(&X 
TIME, &calc(&instr (&XTIME, • . » )+l) ) " 
&STATUS = "Sent" 

&REC&UC NT 
"ficleftC ' ,3) &left (,2) &left( • (&HFILE) • , 12 ) &lef t ( , 2 ) &lef t ( &STATUS , 1 
1) &left ( , 1) &left(&XTIME, 11) &left( , 1) firight ( &XSIZE , 8 ) &lef t { , 4 ) &lef 
t (&XCOM,8) &left( , 4) &right (&XBTSEC, 5) &lef t ( , 2 ) &lef t ( &XPORT, 5) » 
&UCNT = &UCNT + 1 



-GETSUB 

* Create master file line 

* Any outstanding sub-files ? 

if (&OUTSTAND = Y) then 

&XTIME=" " ; &XSIZE=&f size ( &OUTDIR. &FILE&MCNT) ; &XCOM=" " ; &STATUS="Out 
standing" ;then &XBTSEC=" " ; then &XPORT="" 
then goto WRITE4 

45 

* No outstanding sub-files 

&STATUS="Sent" ; &XSIZE=&f size (&0UTDIR. &FILE&MCNT) 
if {&HLDXCOM <> "") then &XCOM = &HLDXCOM 
else &XCOM = "" 
&XPORT="N/A" 
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* Develop bytes/sec 

if (&XSI2E = 0) then &XBTSEC = "N/A" 

else &XBTSEC = &calc (&XSIZE*100/&transl (&TOTFT, •.*,••) ) 

5 * Develop total xfer time 

if (&TOTFT<=2) then &TOTFT = " . &TOTFT" 

else &TOTFT » 

&substr ( &TOTFT , 1 , ficalc ( filength ( &TOTFT) -2 ) ) . &substr ( &TOTFT , &calc ( & 
length (&TOTFT)-l) ,2) 

if (& length (&TOTFT)<=3) then &XTIME = "00 : 00 : OO&TOTFT" 
'0 else &XTIME 

"&hours(&substr(&TOTFT, 1, &calc(&instr (&TOTFT, • . •) -1) ) ) .&substr(&T 
OTFT,&calc{&instr(&TOTFT, ' . ')+!) )" 



-WRITE4 

75 

* Write master file record 

write file #2 

"&left(&fext (&FILE&MCNT) , 3 ) &lef t ( , 2 ) &lef t ( &FILE&MCNT, 12) &left( ,2) 
&left(&STATUS, 11) &left ( , 1) &lef t ( &XTIME , 11) Sleft (, 1) &r ight ( &XSIZE , 
8) &left ( , 4) &left (&XCOM, 8) &lef t ( , 4 ) &right { &XBTSEC, 5) &left ( , 2) &left 
(&XPORT, 5) " 



* Write all subfiles 
&UCNT = 1 

loop WRITESUB &BXD 

write file #2 "&REC&UCNT" 
&UCNT = &UCNT + 1 

-WRITESUB 

return 



* No sub-files 
30 -CONT99 

* Outstanding ? 

if (&STAT&MCNT <> "S") then &STATUS = "Outstanding" 

then &XTIME = "";&XSIZE = "";&XCOM = "";&XBTSEC = "";&XPORT 
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then goto WRITE3 

* Sent 

argstring &FTIME&MCNT 

parse . . . 
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&XTIME = &1;&XSIZE = &2;&XCOM = &3;&XPORT = &4 

* Develop bytes/sec 

if (&XSIZE = O) then &XBTSEC = "N/A" 

else &XBTSEC = &calc ( &XSIZE*100/&transl ( &XTIME ,•••,••) ) 

* Develop xfer time 

if (&length(&XTIME) <=3) then &XTIME = "00 : 00 : OO&XTIME" 
else &XTIME 
"&hours(&substr (&xtime, 1, Scale (&instr (&xtime, ' • ' ) -1) ) ) . &substr (&X 
TIME, &calc{&instr(&XTIME, ' . •)+l) )" 
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&STATUS = "Sent" 

-WRITE3 

write file #2 

"&left(&fext(&FILE&MCNT) , 3 ) &lef t ( , 2 ) &lef t ( &FILE&MCNT, 12) &left(,2) 
&left (&STATUS ,11) &left ( , 1 ) ilef t ( &XTIME , 11) &left ( , 1) firight (&XSI2E, 
8) ileft ( , 4) &left (&XCOM, 8) &lef t ( , 4 ) &right ( &XBTSEC, 5) &lef t ( , 2) &left 
(&XPORT, 5) " 

return 



* Subroutine to split file into even bytes per remote port 

* — « 

* 

-SPLIT 
^5 &FILE = &1 

* Get # of ports for remote PC 

&CNT = &TOTFILES 
gosub NUMPORT 
&HRC == firetcode 

20 

* If Diagnostic PC has less ports than remote, then split file for 

* of ports 

* on diag 

if (&haJMPORTS < &HRC) then &SPLITNXm = &NXmPORTS 
else &SPLITNUM = &HRC 

25 

* Assign MAP. DAT variable (format ==s> 
12 3 4 512 3 .001,FILE1. 12, FILEl. 22) 

&TEMPMAP = "&FILE" 



* If only 1 port available to transfer file 

if (&SPLITNUM = 1) then goto OUTl 

* Calc # bytes per file 

&HSIZE = &fsi2e(&OUTDIR. &FILE) 



35 

* If file IS less than 2K, then don't bother splitting up 

if (&HSIZE < 2048) then goto OUTl 

* SIZE OF FILE / # OF PORTS USABLE / 256 

&HRECS = &HSIZE/&SPLIT^nJM 
40 &hrecs = &hrecs/256 

&SEQ = 1 

open &0UTDIR. &FIIiE as #3 for input stream binary 

* loop for # of chunks to split file into 

&SPCNT = 1 
45 loop READSP firSPLITKUM 



* Init total xfer time, bytesize of file, xfer complete time, com 
port used 
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* Variable name conventions ==> &FTM<seq» # of filexindex to 
f ilenaTne> 

&HXD = &SEQ,&TOTFILES 
5 define &FTM&HXD ^ 

* Append temp filename to variable followed by status of O 
(Outstanding) 

* Conventions fiSPLnx where 'n' represents the seq # of the file and 

70 * represents the index to master file array 

substi define &.SPL&HXD = 
"FILE&TOTFILES ♦ . &SEQ . fitSPLITNXJM, O" 

* Append temp filename to MAP, DAT variable 

&TEMPMAP = "&TEMPMAP. ,FILE&TOTFIUES. .&SEQ.&SPLITNUM" 

75 

open &OUTDIR.TEMP\FILE&TOTFILES. • &SEQ. &SPLITNUM as #2 for 
output stream binary 

* loop for # records for each temp file 
-FRAC 

loop DUMPREC &HRECS 

read file #3 &RECSTR length 256 
if not found then goto DONEREAD 
write file #2 &RECSTR 

-DUMPREC 

25 

* If writing to last file and last record did not reach end of 
file, then 

* attempt to read next record 

if (&SPCNT = &SPLITNUM) and (&FOUND = YES) then goto FRAC 

30 &SPCNT = &SPCNT + 1 

-130NEREAD 

close #2 

&SEQ ^ &SEQ + 1 

35 -READS P 

close #3 

* Write to MAP. DAT 

write file #4 "&TEMPMAP" 

&HCMAP = &HCMAP +1 ;* increment record counter for 

MAP. DAT 
-OUTl 

return 

* — . . 

-k 

* Subroutine to assign next sub-file (if any), and update status's 

* (ie. &SPL and &STAT) 

* 

-k 
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-ASSIGNFL 

&PARM1 = il ;* assign index for iXFILE {relative comm 

#} 

&PARM2 = &2 ;* assign index for &STAT and &FILE (master 

file) 

* Determine how many subfiles master file is broken up into (if 

*"lf var not initialized, then assume no sub-files were built for 
this file 

* and assign master filename 

if (&.SPL1&PARM2 = &SPL1&PARM2) then substi define 
&.XFILE&PARM1 = "&FILE&PARM2'' 

* assign all files queued and none outstanding 

then define &STAT&PARM2 = "Q" 
then return 

* Since sub-files were found, determine next file to send (if any 
more) and 

* update status vars 

&INPROG = N 

&UCNT =1 ;* init index to 1st sub file 

* Get total # of sub-files 

& B X D 
&substr(&SPLl&PARM2, &calc(&instr(&SPLl&PARM2, ",") -1) , 1) 



loop for # of sub-files 
loop CHECKSP &BXD 

&HXD = &UCNT.&PARM2 
argstring &SPL&HXD 
parse " , " - . - 

If sub-file is outstanding then jump out 
if (&2 = "O") then goto OUTS 



* 



If sub-file is in progress, then flag 
if (&2 = "I") then &INPROG = Y 

&UCNT = &UCNT +1 ;* increment sub-file counter 

-CHECKSP 

* Assumed no outstanding sub-files for master file 

* Any in progress ? 

if (&INPROG = Y) then define &STAT&PARM2 = "Q" 

* Else flag for all subfiles sent 

else define &STAT&PARM2 = "S" 

define &XFILE&PARM1 = ?* assign null filename 

return 

* Assumed outstand. files to be sent 
-OUTS 

* Assign filename to send 

substi define & .XFILE&PARMl = "&1" 
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substi define fit.SPL&HXD = filename and in 

progress status 

* If there are still more sub-files outstanding and sub-file in 
progress 

if (&UCNT < &BXD) then define &STAT&PARM2 = "I" 

* Else no more sub-files outstanding and sub-file in progress 
else define &STAT&PARM2 = "Q" 
return 

* 

. * 

* Subroutine update file status (&STAT) for sub-file ops^ 

* . — 

★ 

-CHECKFL 

&PARM1 = &1 ;* assign index for &STAT (master file) 

* If no sub-files, then return 
if (&,SPLlfitPARMl = &SPL1&PARM1) then return 

* Since sub-files were found, update status vars 

&INPROG = N 

&UCNT =1 ;* init index to 1st sub file 

* Get total # of sub-files 

25 & B X D = 

Stsubstr (&SPL1&PARM1, &calc (&instr (&SPL1&PARM1, " ,")-!) ,1) 

* loop for # of sub- files 

loop CHECKSP2 &BXD 
&HXD = &UCNT.&PARM1 
argstring &SPL&HXD 
parse " , " ... 

* If sub-file is outstanding or in progress then return 
if (&2 = "O") or (&2 = "I") then return 
&UCNT = &UCNT -hi ;* increment sub-file counter 

-CHECKS P2 

* Assumed no outstanding sub-files for master file 

* flag for all subfiles sent 

* If status var already set to S (sent) then return 
if (&STAT&PARM1 = "S") then return 
define &STAT&PARM1 = "S" 
return 

* Update file xfer completion flag for this physician 
♦temp line 

* gosub UPDCOMPL &EXT&PARM1 

* Check if all xfer's for all physicians is complete 

* gosub STATDONE 

* &HRC = &retcode 

* wait 2 

50 

* If all xfers completed, then wrap it up 

* return &HRC 

55 
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* SCRIPT: READCONF.SCR 

* FUNCTION: Read configuration and telephone files into RAM vars 

5 on error 

on attnkey FIO &GETOUT = Y 

* Read configuration file 

if not exists &APPLDR. CONFIG* DAT then clear 
then smsg "qiAPPLDR.CONFIG.DAT does not exists. 
10 Application cannot continue." 

then read line &Q1 "qPress ENTER." 
then quiet stop all 

* Load records in configuration file into vars 

&NUMPORTS =0 ;* init # of valid ports 

'5 open &APPLDR. CONFIG. DAT as #1 for input 

if (&retcode <> 0) then clear 

then smsg "qProblem opening file &APPLDR. CONFIG. DAT. 
Application cannot continue." 

then read line &Q1 "qPress ENTER." 
then quiet stop all 

20 ^ ir 

* Read 1st record (outgoing directory) 

read file #1 &XOUTDIR 
if not found then clear 

then smsg "qlst record in file &APPLDR- CONFIG. DAT must be 
outgoing directory name." 

then read line &Q1 "qAppl ication cannot continue. Press 
ENTER . " 

then quiet stop all 
&XOUTDIR = &trim(&XOUTDIR) 

if (&substr (&XOUTDIR, &length(&XOUTDIR) , 1) <> '\') then 
30 &XOUTDIR = "&XOUTDIR\" 

substitute define &.OUTDIR = &XOUTDIR 

* Loop until end of file 

loop READREC * 

read file #1 &RECSTR ;* read a record 

^5 if not found then goto CONTl ;* EOF ? 

argstring &RECSTR ;* breakout tokens 

parse ... ;* parse using the tilde 



25 



40 



45 



* Make sure we have 6 parameters 

if (&N <> 6) then clear 

then smsg "qlnvalid # of parameters in line 
#&calc(&NUMPORTS +1) of file &APPLDR. CONFIG . DAT. " 

then read line &Q1 "qApplication cannot continue. Press 

ENTER. " 

then quiet stop all 

* Increment port counter 

&NUMPORTS = &NUMPORTS + 1 

* Assign entry name 
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substitute define & .EN&NUMPORTS = "fitrim (fiupper (&1) ) " 



* Assign port # 

global &PORT&mJMPORTS 
&P0RT&NUMPORTS = "&triin(&2)" 

* Assign modem speed 

global iSPEED&NUMPORTS 
&SPEED&NUMPORTS = "&trim (fiupper (&3) ) " 

* Assign port type 

global &PTVPE&NUMPORTS 
&PTYPE&NUMPORTS = " &trim( Supper (&4 )) " 

* Assign modem type 

global &MODEM&NUMPORTS 

&M0DEM&NUMPORTS = " &trim ( &upper ( &5 ) ) " 

* Assign modem name/class 

global &MNAME&NUMPORTS 

&MNAME&NUMPORTS = " &tr im ( &upper ( & 6 ) ) »• 

* Make sure relay's setting match configuration file 

quiet directory query &EN&NUMPORTS MSPEED &HSPEED TYPE 
&HTYPE COMPORT &HPORT 

&HRC = &retcode 

* If entry name does not exist, then build it with appropriate 
options 

if (&HRC = 2) then gosub BUILDENT 
then goto CONT4 

* Make sure modem speed, comm port and type of connection are 
correct in Relay's 

* Directory of Computers 

if (&HSPEED <> &SPEED&mJMPORTS) or (&HPORT <> 
&PORT&NUMPORTS) or (&HTYPE <> "TTY") 

then quiet directory update "fitEN&NUMPORTS'» MSPEED 
&SPEED&NI;MP0RTS type TTY comport &PORT&NUMPORTS 

-C0NT4 

* Make sure port type, modem type and modem name/class are correct 
in Relay's 

* personal computer options 

reset &HTYPE; reset &HMODEM; reset &HNAME 

quiet directory qoption comport & PORT &NUM PORTS &HTYPE 
&HMODEM &HNAME 

if ("&HTYPE" <> "&PTYPE&mjMPORTS") or ("&HMODEM" <> 
"&MODEM&NUMPORTS") or ("&HNAME"<> " &MNAME&NUMPORTS" ) 

then quiet directory soption comport &PORT&NUMPORTS 
&PTYPE&NUMPORTS &MODEM&NUMPORTS "SMNAMEirNUM PORTS" 

-READREC 
-CONTl 

close #1 
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* Make sure central PC has at least 1 com port 

if (&NUMPORTS < 1) then clear 

then smsg "qThere must be at least 1 com port for 
application to run* Check file" 
5 then read line &Q1 "q&APPLDR. CONFIG, DAT. Press ENTER." 

then quiet stop all 

* Read telephone/physician file 

if not exists &APPLDR.TEL. DAT then clear 

then read line &Q1 "q&APPLDR.TEL. DAT does not exists. 
'0 Application cannot continue. Press ENTER." 
then quiet stop all 

* Load records in telephone file into vars 

&NUMTEL =0 ;* init # of valid ports 

open &APPLDR.TEL. DAT as #1 for input 
if (&retcode <> 0) then clear 

then smsg "qProblem opening file &APPLDR. TEL. DAT. 
Application cannot continue." 

then read line &Q1 "qPress ENTER." 
then quiet stop all 

20 

* Read all records 

&OLDPHY = 
&NUMPHY = 0 
&1STTIME = Y 
loop READTEL * 

25 read file #1 &RECSTR ;* read a record 

if not found then &NUMPHY = &NUMPHY + 1 
then global &RPT&NUMPHY 

then &RPT&NUMPHY = &PHYCNT ;* store # of 

sessions phy. has 

then global &RPHY&NUMPHY 
30 then &RPHY&n™phy = &OLDPHY ;* store phy. 

initials 

then global &FIN&NUMPHY 

then &FIN&NUMPHY = N ; * f t ' s complete 

flag for phy- 

then goto CONT2 ;* jump out 

argstring &RECSTR ;* breakout tokens 

parse "-»' ;* parse using the tilde 

* Make sure we have 2 parameters 

if (SiN <> 2) then clear 

then smsg "qlnvalid # of parameters in line 
#&calc(&NUMTEL +1) of file &APPLDR. TEL. DAT. " 

then read line iQl "qApplication cannot continue. Press 

ENTER . " 

then quiet stop all 

45 

* For 1st time through loop, store the physicians id 

if (&1STTIME = Y) then &OLDPHY = &upper(&l) 
then &1STTIME = N 
then &PHYCNT = 0 

50 
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* If physician initial's has changed, then store # of sessions 
remote PC has 

* NOTE: array &RPHYn (physician's initials) and &RPTn (total « of 

sessions per 

* remote PC) are built here 

if (&upper(&l) <> &OLDPHY) then &NUMPHY = &KUMPHY + 1 
then global fitRPT&NUMPHY 
then &RPT&NUMPHY = &PHYCNT 
sessions phy. has 

then global &RPHY&NUMPHY 
then &RPHY&NUMPHY ^ &OLDPHY 

initials 

then global &FIN&NUMPHY 
then &FIN&NUMPHY = N 
flag for phy. 

then &PHYCNT ^ 0 

counter 

then &OLDPHY = "&upper(&l)" 

initials 



;* store # of 

;* store phy. 

;* ft's complete 
* re-init session 
;* assign phy 



20 



&NUMTEL = &NUMTEL + 1 
&PHYCNT = &PHYCNT + 1 
counter for remote 



:* increment record counter 
;* increment session 



25 



30 



* Assign physicians initials 

global &PHY&m;MTEL 
&PHY&NXmTEL = "Supper (&1)' 

* Assign telephone # 

global &TEL&NUMTEL 
&TEL&NUMTEL = "&2" 

-READTEL 
-CONT2 

close #1 
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* Check for at least 1 record 

if (&NUWTEL < 1) then clear 

then smsg "qFile &APPLDR.TEL. DAT must contain at least 1 
record. Application cannot" 

then smsg "qcontinue. Press ENTER," 
then quiet stop all 

* Return control to calling script (normal termination) 

stop 

* Subroutine to build an entry in the directory of computers 
-BUILDENT 



45 



* Build entry name using entry name 'A HOST' as the model 
quiet directory add "&EN&NUMPORTS" "A HOST" 
&HRC - firetcode 
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* Entry name 'A HOST' not found ? 

if (&HRC - 2) then clear 
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then smsg "qEntry Name 'A HOST' must be created on your 
copy of Relay Gold. To create" 

then smsg "qa new Entry Name, enter the Directory of 
Computers and copy an entry of" 
5 then read line &Q1 "qTYPE 'TTY*. Then, name the new Entry 

Name 'A HOST'. Press ENTER." 

then quiet stop all 

* No room on disk ? 

if (&HRC = 3) then clear 
w then read line &Q1 "qNo room on disk to create new entry 

name. Press ENTER." 

then quiet stop all 



* Update new entry name with proper modem speed, type, comments, 
quiet directory update "&EN&NUMPORTS" MSPEED 

&SPEED&NUMPORTS TYPE TTY COMMENTS "PORT #&NUMPORTS FOR SCRIPT" 

COMPORT &PORT&NUMPORTS TELEPHONE "" 
return 
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* SCRIPT: SESSOFF.SCR 
* 

* FUNCTION: Performs calls, transfers, hangups etc. for each 
session on the 

* central pc 

on error 

* perform trace if debug on 

if (&DEBUG = Y) then strace LOG&SESSIONID 

on nomemory smsg "qOut of memory session # &SESSIONID 

global &ASYNCNUM &HSEQ 

* Assign communications session number 

&ASYNCNUM = &1 

* Retrieve communication port # for this session 

directory query &EN&ASYNCNUM comport &HPORT 

* Retrieve modem type for this session 

directory qoption comport &HPORT &DUMMY1 &MODEMNAM 



* If modem type is QX (Microcom) , then set special modem variable 
to 

* submit 'AT' instruction to modem 

if ( Supper {&MODEMNAM) = QX) then global &$MICMD 
25 * then &$MICMD = "\N3\Q3\JO%C3" 

* For super duper QX/4232hs (latest & greatest) 

then &$MICMD = "%C0%G1%BT12000" 

* Initialize sessions variables 

30 define &HSTAT&ASYNCNUM = "OFFLINE" 

define &STEL&ASYNCNUM = 

define &XREQ&ASYNCNUM = 

define &XFILE&ASYNCNUM = 



* Wait for driving session to request an xfer 
-WAITAG 

wait (StXREQ&ASYNCNUM <> "") 

* If request for call, then proceed 
if ( &XREQ&ASYNCNUM = "CALL") then goto DOCALL 
else goto WAITAG 

-DOCALL 

&ATTEMPTS = 1 

-DOCALL2 

45 * Attempt to perform call. If successful execute online script 

SESSON. 

call "&EN&ASYNCNUM" &STEL&ASYNCNUM ex SESSON 
&HRC = Sretcode 

* Error messages based on return code 

50 
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* If line dropped before xfer completed, then send file again 

if (&HRC = 99) then &MESSG = "Inadvertent line drop before 
file transfer was completed. 

else if (&HRC = 0) then &MESSG = "Normal disconnect from 

PC" 

else if (&HRC = 2) then &MESSG = "Insufficient memory for 
the connect ion . " 

else if (&HKC = 3) then &MESSG = "Communication port is not 
operational . " 

else if (&HRC = 4) then &MESSG = "User pressed ESC while 
dialing, cancelling the call." 

else if (&HRC = 5) then &MESSG = "The modem is not 
responding properly. " 

else if (&HRC = 6) then &MESSG = "No carrier detected on 

line." 

else if (&HRC = 7) then &MESSG = "The other computer is 

busy. " 

else if (&HRC = 8) then &MESSG = "Voice detected on 
telephone line." 

else if (&HRC = 9) then &MESSG = "No dial tone on telephone 

line. " 

else if (&HRC = 15) then &MESSG = "Entry Name 
•&EN&ASYNCNUM' not in the Directory of Computers." 

else if (&HRC = 98) then &MESSG = "Problem with initial 
connection. " 

* Successful file transfer (continue) 

if {&HRC = 0) then goto CONTl 

* Check for fatal codes 

if (&HRC = 2) or { &HRC = 3) or (&HRC = 4) or (&HRC = 15) 

else goto CONT99 

&MESSG = "Fatal error for Entry Name &EN&ASYNCNUM - port 
unusable. " 

* Set flag for file transfer back to OUTSTANDING 

define &STAT&IND&ASyNCNUM = "O" 
&XYZ = &IND&ASYNCNUM 



* If sub-file, then make sure to update status var &SPL 

if (&SPL1&XYZ = &SPL1&XYZ) then 
&HSEQ = &substr(&fext(&XFILE&ASYNCNUM) ,1,1) 
40 &HSEQ = &HSEQ. &IND&ASYNCNXm 

substi define &.SPL&HSEQ = " &XFILEfitASYNCNUM, O" 
goto CONTl 

-CONT99 

* Check for non-fatal codes (retry) 

45 &ATTEMPTS = &ATTEMPTS +1 ;* increment retry counter 

* Over max attempts ? 

if {& ATTEMPTS > 5) then &MESSG = "5 unsuccessful attempts 
for #&STEL&ASYNCNUM phy : &SPHY&ASYNCNUM Entry : fiiEN&ASYNCNUM" 

50 
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* Set flag for file transfer back to OUTSTANDING 

then define &STAT&IND&ASYNCNUM "O" 
then goto CONTl 

* Try again 

else goto DOCALL2 

* Proceed to wait for another instruction from driving session 
-CONTl 

define &XREQ&ASYNCNUM = "»« ;* reset request command 

define &HSTAT&ASYNCNUM = "OFFLINE" ;* set session 

status to OFFLINE 

goto WAITAG 
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* SCRIPT: SESSON.SCR 
* 

* FUNCTION: Performs online duties for communication session 

on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 

* Switch to split screen mode 

* switch relay 

* If Relay's Protocol not established in 60 seconds, assume bad 
line quality 

* or problems with modems and return code of 98 

wait 60 (&CSERIAL <> 

if timeout then define &HSTAT&ASYNCNUM = "OFFXFER" ; then 

hangup 98 



* Use hardware flow control 

* wait 1 

* wait (&sesactive = 1) 

20 * substi session switch #&calc {&asyncnum + 1) 

* set insmode off ;* turn off insert mode 

* stack " [ESCAPE] [F5] [TAB] [TAB] [TAB] [TAB] [TAB] [TAB] H [ enter ] " 

* wait 1 

reset ^receive ;* in case any junJc chars 

25 * session switch #1 

* If inadvertent disconnection occurs before protocol established, 
then 

* provide return code of 98 
on disconnect define &HSTAT&ASYNCNUM = "OFFXFER" ; hangup 98 



* Update status var for session to signify online connection was 
made 

define &HSTAT&ASYNCNUM = "ONXFER" 



* Make sure other PC is in synch with proper protocol and script 
control 

* character. ( 'jood security feature) 

&ATTEMPTS = 0 
-SECURITY 

40 send "$send • TEST * " ;* send string 

wait 4 "TEST" ;* wait for positive 

confirmation 

if not timeout then goto STARTSD ;* if received positive 
confirmation 

& ATTEMPTS = &ATTEMPTS +1 ;* increment attempts 

45 counter 

* Max attempts ? 
if (&ATTEMPTS > 4) then define &HSTAT&ASYNCNUM = 



"OFFXFER" ; then hangup 98 
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else goto SECURITY 

-STARTSD 

* If MAP. DAT exists for sub-file reconstruction, then send it 
if exists &OUTDIR.TEMP\MAP. DAT then sendf 

&0UTD1R . TEMP\MAP . DAT 

then wait until sending 
then send "$recvf MAP. DAT NOBACKUP" 
then wait while sending 

-SENDAG 

* If inadvertent line drop before xfer is complete, then tell 
offline script 

* to try again 

on disconnect define &HSTAT&ASYNCNUM = "OFFXFER" ; hangup 99 

* reset &STIME 

* Attempt to send file 

wait 0.5 

20 * If no sub-files, then send file from outgoing dircectory 

&XYZ = &IND&ASYNCNUM 

if (fit.SPLl&XYZ = &SPL1&XYZ) then sendfile 
&OUTDIR. &XFILE&ASYNCmJM 



* For sub-files, send file from outgoing\TEMP directory 

else sendfile &OUTDIR • TEMP\&XFILE&ASYNCNUM 
wait until sending 

send "$recvf &XFILE&ASYNCNUM NOBACKUP" 
&BEGIN = &TIMETH 

* Wait until entire file has been transferred 

wait while sending 
&END = &TIMETH 



* Update status var for record associated with file that just got 
transferred 

35 * successfully. ( &IND&ASYNCNUM provides index to array &STAT for 

proper 

* record to update) 

* If no sub-files for master file, then update status var 

if (&.SPL1&XYZ = &SPL1&XYZ) then define &STAT&IND&ASYNCNUM 

40 _ "S" 

* otherwise for sub-files, update status var 

else &HSEQ ^ isubstr ( &f ext ( &XFILE&ASYNCNUM) , 1 , 1) 
else &HSEQ ^ &HSEQ . &IND&ASYNCNUM 

else substi define &.SPL&HSEQ = ••&XFIIaE&ASYNCNUM, S" 



* Also, store xfer time, byte size of file, time transfer completed 
and com 

* port used 



50 



EP 0 512 174 A1 



* Develop xfer time in format TOTAL SECONDS . HUNDRETHS OF SECONDS 

&HBEG = &seconds(&substr(&BEGIN, 1,8) ) *100 
&HEND = &seconds(&substr(&END, 1,8) ) *100 
5 &THBEG = &substr (&BEGIN, 10,2) 

&THEND = fisubstr {&END, 10, 2) 
&HBEG = &HBEG+&THBEG 
&HEND = &HENI>+&THEND 
&DIF = &HEND-&HBEG 

if (&length(&DIF) <= 2) then &DIF = Aright (&DIF, 2 , 0) " 

else 6DIF = 

"Ssubstr ( &DIF, 1 , &calc (&length (&DIF) -2 ) ) . fisubstr (&DIF, &calc (&lengt 
h(&DIF)-l) ) " 



* If no sub-files, update status info 

if (&.SPL1&XYZ = &SPL1&XYZ) then substi define &.FTIMEiXYZ 
= "&DIF-&fsi2e(&0UTDIR, &XFILE&ASYNCNUM) -&time-& COMPORT" 

* Otherwise for sub-files, update status info 

else substi define &*FTM&HSEQ = 
"&DIF-&fsize(&OUTDIR.TEMP\&XFILE&ASYNCNUM) "&time-& COMPORT" 

20 

* Tell driving session file has been transferred and line is idle 



define &HSTAT&ASYNCNUM = "ONLINE 



* If inadvertent line drop occurs while we are waiting for an 
25 instruction 

* then update status var that we are hanging up 

on disconnect define &HS TAT & AS YNCNUM = "HANGUP" ; hangup 0 



* Wait for driving session to either request another xfer for this 
physician or 

* to hangup (no more files pending for this physician) 
-WAITAG 

* if debug on wait 1 second so trace doesn't get large 

if (&DEBUG = Y) then wait 1 

substitute if ( &HSTAT&AS YNCNUM = "ONLINE") then goto WAITAG 



* If another file to send to same physician, then start xfer 

substitute if ( &HSTAT&AS YNCNUM = "ONXFER") then goto SENDAG 

40 

* Disable line drop monitor 

on disconnect 

* Tell remote PC to hangup with a return code of 66 (normal 
45 termination) 

send "$HANGUP 66" 
wait until idle 

* Update status flag 

50 



define &HSTAT&ASYNCNUM = "HANGUP" 

55 * Otherwise, hangup with OK return code 

hangup 0 
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* SCRIPT: SESSON.SCR 

* FUNCTION: Performs online duties for communication session 
5 on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 

* Switch to split screen mode 
10 * switch relay 

* If Relay's Protocol not established in 60 seconds, assume bad 
line quality 

* or problems with modems and return code of 98 

wait 60 (&CSERIAL <> 
'5 if timeout then define &HSTAT&ASYNCNUM = "OFFXFER" ; then 

hangup 98 

* Use hardware flow control 

* wait 1 
wait (&sesactive = 1) 

substi session switch #&calc ( fiasyncnum + i) 

* set insmode off ;♦ turn off insert mode 
stack "[ESCAPE] [F5] [TAB] [TAB] [TAB] [TAB] [TAB] [ TAB] H[ enter ] »• 



* 

20 * 



* wait 1 

reset &receive ;* in case any junk chars 

* session switch #1 

* If inadvertent disconnection occurs before protocol established, 
then 

* provide return code of 98 
on disconnect define iHSTATSASYNCNUM = "OFFXFER" ; hangup 98 



* Update status var for session to signify online connection was 
made 

define &HSTAT&ASYNCNUM = "ONXFER" 



* Make sure other PC is in synch with proper protocol and script 

control 

* character, (good security feature) 

&ATTEMPTS = O 
-SECURITY 

40 send "$send 'TEST'" ;* send string 

wait 4 "TEST" ;* wait for positive 

confirmation 

if not timeout then goto STARTSD ;* if received positive 
confirmation 

&ATTEMPTS = &ATTEMPTS +1 ;* increment attempts 

45 counter 

* Max attempts ? 

if (&ATTEMPTS > 4) then define &HSTAT&ASYNCNUM = 
"OFFXFER" ; then hangup 98 

50 



55 



52 



BNSDOCID' <EP 051?-- I > 



EP 0 512 174 A1 



else goto SECURITY 

-STARTS D 

* If MAP. DAT exists for sub-file reconstruction, then send it 

if exists &OUTDIR.TEMP\MAP. DAT then sendf 
fitOUTDIR . TEMP\MAP . DAT 

then wait until sending 

then send "Srecvf MAP. DAT NOBACKUP^ 

then wait while sending 

-SENDAG 

* If inadvertent line drop before xfer is complete, then tell 
offline script 

* to try again 

on disconnect define &HSTAT&ASYNCNUM = "OFFXFER" ; hangup 99 



* reset &STIME 

* Attempt to send file 

wait 0.5 

* If no sub-files, then send file from outgoing dircectory 

&XYZ = &IND&ASYNCNUM 

if C&.SPLl&XYZ = &SPL1&XYZ) then sendfile 
&OUTDIR . &XFILE&AS YNCNUM 

* For sub-files, send file from outgoing\TEMP directory 

else sendfile &OUTDIR. TEMP\&XFILE&ASYNCNUM 
wait until sending 

send "$recvf &XFILE&ASYNCNUM NOBACKUP" 
&BEGIN = &TIMETH 

* Wait until entire file has been transferred 

wait while sending 
&END = &TIMETH 

* Update status var for record associated with file that just got 
transferred 

* successfully. ( &IND&ASYNCNUM provides index to array &STAT for 
proper 

* record to update) 

* If no sub-files for master file, then update status var 

if (&.SPL1&XYZ = &SPL1&XYZ) then define &STAT&IND&ASYNCNUM 

= "S" 

* otherwise for sub-files, update status var 

else &HSEQ = &substr (&fext(&XFILE&ASYNCNUM) , 1, 1) 
else &HSEQ = &HSEQ. &IND&ASYNCNUM 

else substi define &.SPL&HSEQ = "&XFILE&ASYNCNUM, S" 

* Also, store xfer time, byte size of file, time transfer completed 
and com 

* port used 
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* Develop xfer time in format TOTAL SECONDS . HUN DRETHS OF SECONDS 

&HBEG = &seconds(&siabstr(&BEGIN,l,8) ) *X0O 

&HEND = &seconds(&substr{&END,l,8) )*100 

&THBEG = &substr(&BEGIN, 10,2) 

&THEND = &substr(&END, 10,2) 

&HBEG = &HBEG+&THBEG 

&HEND = &HEND+&THEND 

&DIF = &HEND-&HBEG 

if {&length(&DIF) <= 2) then &DIF = " . firight (&DIF, 2 , 0) " 

else &DIF - 

"isxibstr ( &DIF , 1 , &calc ( Slength ( &DIF) -2 ) ) . &substr ( &DIF, Scale ( &lengt 
h(&DIF)-l) ) " 

* If no sub-files, update status info 

if (&.SPL1&XY2 ^ &SPL1&XYZ) then substi define &,FTIME&XYZ 
= "&DIF-&fsi2e (&OUTDIR. &XFILE&ASYNCNUM) -itime-St COMPORT" 



* Otherwise for sub-files, update status info 

else substi define &.FTM&HSEQ = 
20 "&DIF-&fsize(&OUTDIR.TEMP\&XFILEfitASYNCNUM)-&time-&COMPORT" 

* Tell driving session file has been transferred and line is idle 

define &HSTAT&ASYNCNUM - "ONLINE" 

25 * If inadvertent line drop occurs while we are waiting for an 
instruction 

* then update status var that we are hanging up 

on disconnect define &HSTAT&ASYNCNUM = "HANGUP" ; hangup 0 

30 * Wait for driving session to either request another xfer for this 
physician or 

* to hangup (no more files pending for this physician) 
-WAITAG 



* if debug on wait 1 second so trace doesn't get large 

if (&DEBUG = Y) then wait 1 

substitute if ( &HSTAT&ASYNCNUM = "ONLINE") then goto WAITAG 

* If another file to send to same physician, then start xfer 

substitute if (&HSTAT&ASYNCNUM = "ONXFER") then goto SENDAG 



* Disable line drop monitor 
on disconnect 

45 * Tell remote PC to hangup with a return code of 66 (normal 
termination) 

send "$HANGUP 66" 
wait until idle 



* Update status flag 



define &HSTAT&ASYNCNUM = "HANGUP" 

* Otherwise, hangup with OK return code 
hangup 0 
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* STARTSES.SCR 

* FUNCTION: Invokes relay sessions 

* Allow script to perform error processing 
on error 

on attnkey FIO &GETOUT = Y 

* If RAM exceeded, then provide error message 
on nomemory smsg "qOUT OF MEMORY SESSION" ;STRACE OFF 

* Specifies the session name suffix (ASYNCl) etc. 
&ASYNCNUM = 1 

* Iterate # of sessions specified 
loop ASYNC while {&ASYNCNUM &NUMPORTS) 

* Call subroutine to invoke a new async session 

gosub DOASYNC 

* Increment for next async session 
20 &ASYNCNUM = &ASYNCmJM + 1 

-ASYNC 

* Terminate script (normal termination) 

quiet stop 0 

* This subroutine invokes an async session 
25 -DOASYNC 

* Invoke a new async session and execute script SESSOFF.SCR, 

* Assign a session name with ASYNC&ASYNCNUM format where &ASYNCNUM 
is the 

* current session being invoked. 

30 ^ 

session start 
SESSOFF/X: "&ASYNCNUM"/SD:"&APPLDR"/NAME: "ASYNC&ASYNCNUM"/SL:4 

* Wait 20 seconds for the session to be established 
wait 20 (&sescount = Scale ( &ASYNCNUM + 1)) 

* If session was not established successfully, then jump to error 
routine. 

if timeout then goto NG 

40 * Provide check to make sure session was completely established 
before proceeding. 

&XCNT = 1 

loop -CANWAITl * 

session status #2 &NX fitSTX 
if (&rc = 0) then goto CANSTOPl 
^5 wait 1;&XCNT = &XCNT + 1 

if (&XCNT > 45) then goto NG 

-CANWAITl 



* Provide error message if session was not established. 
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-NG 

clear 

open &APPLDR.I1OG as #1 for append 

write file #1 "SDATE &TIME Not able to bring up Session 
#&ASYNCNUM. " 

read line &Q1 "qNot able to bring up Session #&ASYNCNUM. 
Press ESCAPE." 

quiet stop 1 ;* return error code 

-CANSTOPl 

* Return to caller 
return 
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* SCRIPT: CONFIG. SCR 

* FUNCTION: Front-end interface to CONFIG .DAT 

on error 
clear 

* Get script application drive 
&APPLDR = &option(SDRIVE) 

* Make sure path is suffixed with a backslash 
if (&substr(&APPLDR, &length(&APPLDR) , 1) <> '\*) then 

&APPLDR = "&APPLDR\" 

&MESSAGE = «" 
& PATHS PEC = 

&SPEEDCHK = "50, 75, 110, 135, 150, 300, 450, 600, 1200, 
1800, 2000, 2400, 3600, 4800, 7200, 9600, 14400, 19200, 38400," 

&PORTCHK = "COMl, COM2, COM3, COM4, COM5 , COM6 , COM7 , COM8 , 
HOSTS, IBMSHARE, NONE, IRMA, IBM, FORTE, IBMLDFT, IBMSDFT, SPECIAL, 
NPCSHARE, NACSHARE, USERl, USER2 , COM3PC, COM4PC, GATEWAY," 
20 &MODCHK = "T, CD, 9, H, S, HV, PC, AX, QX, MT, C, P, V, W, 

X, R, B, BI, E, US, O, I, M, A, D, HC," 

* If configuration file exists, then continue 

if exists &APPLDR, CONFIG. DAT then goto CONTl 
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* Otherwise, init all vars in panel to blanks 

gosub INITBL 1 
goto C0NT3 

-CONTl 

* Open configuration file 

open &APPLDR. CONFIG, DAT as #1 for input 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG. DAT. Process aborted. Press ENTER." 
then stop 



* loop to read all records 

&RECCNT = 0 
&ELEM = 1 
loop READREC * 

read file #1 &RECSTR ;* read a record 

40 if not found then goto CONT2 ;* if EOF then jximp out 

&RECCNT = &RECCNT + 1 ;* increment record counter 

* If 1st record being processed, then assign to path-specification 

if (&RECCNT = 1) then &PATHSPEC = fctrim (&RECSTR) 
^5 then goto READREC 

argstring &RECSTR ;* break-out tokens 

parse ... ;* use tilde as delimeter 
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* Check for illegal # of tokens 

if (&N <> 6) then read line &Q1 "qlllegal # of tokens in 
record &ELEM - Record ignored. Press ENTER." 

then 

&ENT&ELEM="" ; &NUM&ELEM=" " ; &SPEED&ELEM=" " ; &PTYPEfitELEM=" " ; &MTYPE&EL 
EM="" ; &NAME&ELEM=" " 



w 



75 



* Otherwise, assign token from record to panel vars 
else &ENT&ELEM=&trim(&l) 
else &NUM&ELEM=&triin(&2) 
else &SPEED&ELEM=&trim(&3) 
else &PTYPE&ELEM=&trim(&4) 
else &MTyPE&ELEM=&trim(&5) 
else &NAM£&ELEM==&trim(&6) 
&ELEM = &ELEM + 1 

-READREC 
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-CONT2 

* Clear all remaining panel vars 
gosub INITBL &ELEM 
close #1 



-CONT3 



display panel CONFIG 
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-CONT4 

display input &RESPONSE 

if (^RESPONSE <> ESCAPE) and (&RESPONSE <> ENTER) and 
(&RESPONSE <> FIO) 

then smsg "qlnvalid response 
then goto CONT4 

if (^RESPONSE = ESCAPE) then smsg "qModif ications not saved 
... Exiting to DOS." 

then wait 3 
then stop 

if (&RESPONSE = FIG) then gosub HELPl 
then goto CONT4 



gosub SAVEDATA 
&hrc = &RC 

if (&hrc = 1) then goto CONT4 



* Subroutine to init vars in panel 
-INITBL 

&PARM1 = &1 
45 &CNT = &1 

loop INITA while (&CNT <= 8) 



&ENT&CNT="" ;&NXJM&CNT="" ; &SPEED&CNT==" " ; &PTYPE&CNT=" " ; &MTYPE&CNT=" " 
;&NAME&CNT=" " 

&CNT = &CNT + 1 
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-INITA 

return 

* Subroutine to save panel data 
-SAVEDATA 

* Make sure receive path is valid 
&PATHSPEC = &trim(&PATHSPEC) 

if {&substr(&PATHSPEC, ilength (& PATHS PEC) , 1) <> '\') then 
&HSPEC = "&PATHSPEC\*, *" 

else &HSPEC = "&PATHSPEC* . *" 
if (&fvalid(&HSPEC) = YES) then goto CONT5 
smsg "qRECEIVE PATH invalid." 
display cursor 1 
return 1 

* Validate each entry 
-C0NT5 

&CNT = 1 
loop VALIDATE 8 

&ENT&CNT = &trim(&ENT&CNT) 

* If entry name is null, then get next record 
if (&ENT&CNT = "") then goto INCR 

* Validate port # 

&NUM&CNT = &triin(&NUM&CNT) 
25 if (&NUM&CNT > 0) and (&NUM&CNT < 16) then goto CONT6 

if (fithnjM&CNT = "ANY*') or (&NUM&CNT = "SHR") then goto 

C0NT6 

smsg "qlnvalid PORT # for Entry Name &ENT&CNT" 
substitute display cursor Scale (&CNT -1*6+3) 
return 1 

-C0NT6 

* Validate modem speed 
&SPEED&CNT = &trim(&SPEED&CNT) 

if (&instr("&SPEEDCHK","&SPEED&CNT/') > 0) then goto 
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C0NT7 



smsg "qlnvalid MODEM SPEED for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+4) 
return 1 

-C0NT7 

40 * Validate Port Type 

&PTYPE&CNT = &trim(&PTYPE&CNT) 

if {&instr("&PORTCHK","&PTYPE&CNT,") > 0) then goto CONT8 
smsg "qlnvalid PORT TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+5) 
return 1 



-CONT8 

* Validate Modem Type 

&MTYPE&CNT = &trim(&MTYPE&CNT) 

if (&instr ("&MODCHK", "&MTYPE&CNT, ") > 0) then goto CONT9 



50 



55 



59 



BNSDOCID: <EP ^0S12174A1_I_> 



EP 0 512 174 A1 




smsg "qlnvalid MODEM TYPE for Entry Name &ENT&CNT" 
substitute display cursor &calc(&CNT -1*6+6) 
return 1 

g -C0NT9 

* Validate Modem Name/Class 

&NAME&CNT = &triin(&NAME&CNT) 

if ("&PTyPE&CNT" = "HOSTS") then goto CHECKHST 
else goto INCR 

70 * Since PORT TYPE is HOSTS, make sure MODEM NAME/ CLASS has 3 tokens 

separted by 

* a blank 
-CHECKHST 

if {&NAME&CNT = "") then &FLAGNG = Y 
75 else &FLAGNG = N 

else argstring &NAME&CNT 
else parse " " . . • 

if (&N <> 3) or (fiiFLAGNG = Y) then smsg "qlnvalid format 
for MODEM NAME/CLASS for Entry Name fcENTfiCNT" 
20 then substitute display cursor Scale (&CNT -1*6+7) 

then return 1 

-CONTIO 
-INCR 

25 &CNT = fitCNT + 1 

-VALIDATE 

* All fields were valid. Write records to configuration file. 

open &APPLDR. CONFIG. DAT as #1 for output 
&hrc = &RC 

if (&hrc <> 0) then read line &Q1 "qCould not open file 
&APPLDR. CONFIG- DAT, Process aborted. Press ENTER." 
then stop 

write file #1 "&PATHSPEC" 

&CNT = 1 
3g loop WRITEl 8 

* If Entry Name is blank, then don*t write this record 

if (&ENT&CNT = "") then goto NEXTREC 

write file #1 

"&ENT&CNT-&NUM&CNT-&SPEED&CNT-'&PTYPE&CNT-&MTYPE&CNT-&NAME&CNT" 
40 -NEXTREC 

&CNT = &CNT + 1 

-VfRITEl 

close #1 

smsg "qUpdate to configuration file complete..." 
wait 3 

45 Stop 

* Help routine 
-HELPl 
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* Make sure user's cursor is on an input field 
if (&substr(&SFIELD, 1,1) = "T") or (fisubstr {&SFIELD, 1, 1) 

= "O") or (&substr(&SFIELD, 1, 1) = "0") 

then smsg "qWhen selecting help, make sure cursor is on an 
input field." 

then return 

fitFLD = &substr (&SFIELD, 2) ;* get input field number 

display save ;* save video 

* Help for receive file 
if (&FLD ^ 1) then display panel CONFIGHl 
then goto USERINP 

if ((&FLD \ 6) = O) then &FLD = 5 
else &FLD = &FLD \ 6 - 1 

* Help for entry name 
if (&FLD = "1") then display panel CONFIGH2 
then goto USERINP 

* Help for port number 
if (&FLD = "2") then display panel C0NFIGH3 
then goto USERINP 

* Help for modem speed 

if (&FLD = "3") then display panel CONFIGH4 
then goto USERINP 

25 * Help for port type 

if (&FLD <> "4") then goto CONTll 
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-C0NT12 
-CONT13 



-C0NT14 



display panel CONFIGH5 
display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (& RESPONSE <> PGDN) then goto CONT13 
display panel C0NFIGH6 



display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGUP) then goto C0NT14 
goto CONT12 



* Help for modem type 
-CONTll 

if (&FLD <> "5") then goto CONT15 

-C0NT16 

45 display panel C0NFIGH7 

-C0NT17 

display input ^RESPONSE 

if (^RESPONSE = ESCAPE) then display restore 
then return 
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if {&RESPONSE <> PGDN) then goto CONT17 
display panel CONFIGH8 

-CONT18 

5 display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGUP) then goto C0NT18 
goto C0NT16 

10 -CONT15 

* Help for modem name or class 

if (&FLD <> "O") then goto USERINP 

-C0NT19 

display panel CONFIGH9 

-CONT2 0 

display input ^RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if ({.RESPONSE <> PGDN) then goto CONT2 0 
display panel CONFIGHA 
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-C0NT2 1 



display input &RESPONSE 

if (&RESPONSE = ESCAPE) then display restore 
then return 

if (&RESPONSE <> PGUP) then goto CONT21 
25 goto C0NT19 

* Wait until user presses escape 
-USERINP 

display input &RESPONSE 

if (&RESPONSE <> ESCAPE) then goto USERINP 
else display restore 
else return 
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* Script: REMl.SCR 

* Function: Main driving script for Remote PC 

5 

* Globalize vars 

on error 

* Debug on ? 

if (&1 "DEBUG") then define &DEBUG = "Y" 
70 then strace newlog 

else define &DEBUG = "N" 

* Provide mechnism to allow user to abort via function key FIO 

global &GETOUT 
&GETOUT = N 
15 ON ATTNKEY FIO &GETOUT « Y 

clear 

smsg "qlnitialization in progress ... one moment please. 
global &APPLDR ;* application drive 

global &bajMPORTS ; * # of avail, ports on PC 
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* Get script application drive 

&APPLDR = &option(SDRIVE) 

* Make sure path is suffixed with a backslash 

if {&substr(&APPLDR,&length(&APPLDR) ,1) <> 'X') then 
&APPLDR = "&APPLDR\" 

* Read configuration file into RAM vars 

ex REM2 

* Check if user pressed FIO to abort 

if (&GETOUT Y) then goto ALLDONE2 

* Start multiple sessions 

ex REM3 

&HRC = &retcode 

* If any failures on sessions, then stop script and exit relay 

if (&HRC = 1) then quiet stop all 
smsg "qSession start successful..." 

* Erase all files in inbound directory with spec. FILE*.* and 
MAP. DAT 

quiet erase &INDIR. FILE* . * 
quiet erase &INDIR.MAP. DAT 

* Wait for central PC to call and transfer all files 

&CNT = 1 
loop INFIN * 

* Check if user pressed FIO to abort 

if (&GETOUT = Y) then goto ALLDONE2 
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* Check if any ports have received confirmation from the central 
PC that 

* all pending files have been transferred or are in the progress 
of being 

* transferred 

& CHANGE = N 

loop CHECKST &NUMPORTS 

* If debug on, wait 2 seconds so trace doesn't get large 

if (&DEBUG = "Y") then wait 2 

* Check if user pressed FIO to abort 

if (&GETOUT - Y) then goto ALLDONE2 

if (&HSTAT&CNT <> &OLD&CNT) then &OLD&CNT = &HSTAT&CNT 
then & CHANGE = Y 

if (&HSTAT&CNT = "DONE") then gosub SHOWDISP 
then goto CHECKAG 
&CNT = &CNT + 1 



-CHECKST 



-INFIN 



if (&CHANGE = Y) then gosub SHOWDISP 
&CNT = 1 



* Wait until all online activity has ended 
-CHECKAG 

&CNT = 1 
loop INFIN2 * 

loop CHECKST2 &NUMPORTS 

* If debug on, wait 2 seconds so trace doesn't get large 

if (&DEBUG = "Y") then wait 2 

* Check if user pressed FIO to abort 

if (&GETOUT = Y) then goto ALLDONE2 

* If any online activity detected, then continue checking activity 

if (&HSTAT&CNT = "ONLINE") then &CNT = 1 
then goto -INFIN2 
&CNT = &CNT + 1 

-CHECKST2 

goto CONT5 

-INFIN2 



-C0NT5 

* Check if we already waited an additional 70 seconds to make sure 
all 

* online activity was done 

if (&DONEFLAG = Y) then goto ALLDONE 

* Set flag 
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&DONEFLAG = Y 

* Wait 70 seconds in case a line drop occurred and a re-dial was 
in progress 

* wait 70 
goto CHECKAG 



-ALLDONE 
w clear 

s m s g 

"q* *»t 

smsg "q »« 

smsg "q Online file transfer's complete" 
smsg "g " 

smsg 
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smsg "q »• 
smsg "q " 
smsg "q " 



* Join sub-files into master files (if necessary) 
gosub JOIN 

-ALLIX)NE2 

* If old online profile existed before application ran, then 
restore old profile 

* Otherwise erase online profile from relay's directory 
if exists &RUNREL. RELAY. HLD then copy file &RUNREL. RELAY, HLD 

&RUNREL . RELAY . ONP 

then erase &RUNREL, RELAY . HLD 
else &RUNREL. RELAY. ONP 

* Cancel all sessions 
* 

&KILLNUM =2 ;* init 1st session # to kill 

* Loop session #2 to last session 
loop KILLSESS while (&KILLNUM <= Scale ( &NUMPORTS + 1)) 

* Request to kill session 
gosub cancel &KILLNUM 
&HRC = &retcode 

&KILLNUM = &KILLNUM + 1 

-KILLSESS 

smsg "qApplication stopped Relay Gold has exited 

45 memory." 

quiet stop all ;* thats it folks 1! 

-CANCEL quiet session stop &1 
if (&RO0) return &RC 
smsg "q " 
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smsg "QCancelling session #&1. Please Stand by." 
global &CANCEL 
&CANCEL = "NO" 
on timer 5 &CANCEL = "YES" 

loop -canwait while (&CANCEL="NO") 
quiet session status &1 
-CANWAIT if (&RO0) goto -CANSTOP 

-CANSTOP on timer 
return 0 

-SHOWDISP 

clear 
&X = 1 

smsg "q Communication Status" 

smsg "q " 

smsg 

Wq* 

*H 

loop CHECKST &NUMPORTS 
20 smsg "qSESSION #&X: &HSTAT&X" 

fitX = &X + 1 

-CHECKST 

smsg 

"q* — . 

*M 

25 return 

* — 

* 

* Subroutine to join multiple files into one file 

* — - 

30 * 

-JOIN 

* Load MAP, DAT into RAM 

if not exists &INDIR. MAP. DAT then return 

smsg "qJoining sub-files into master files One moment 

please . " 

open &INDIR,MAP.DAT as #1 for input 
&HRC ^ &rc 

if (&HRC <> 0) then smsg "qCould not open MAP. DAT ... Join 
aborted. " 

then goto DONEJOIN 
&CNT = 1 
loop READIN * 

read file #1 &RECSTR 
if not found then goto DONEMAP 
45 &MAP&CNT ^ &RECSTR 

&CNT = &CNT + 1 

-READIN 
-DONEMAP 

&TOTMAP = &CNT - 1 
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close #1 

* Take snapshot of all temp files 

dosdir &INDIR. FILE* . * fiENTRYCT &FN &FEXT 
5 if (&ENTRYCT = 0) then smsg "qTemp files not found ... Join 

aborted , " 

then goto DONEJOIN 

* Sort array by filenames 

sortarray &FN &ENTRYCT ORDER &FEXT 
10 &CNT = 1 

* loop for # of temp files 

loop JOINl while (&CNT <= &ENTRYCT) 

* Make sure all temp files are found to construct original file 
&PTR = &CNT ;* save pointer of 

1st record 

&OLDFN = &FN&CNT ;* store filename 

&TEMPCNT =1 ;* init # of TEMP 

files found 

&MAXTEMP = &substr (&FEXT&CNT,2, 1) ;* get total # of 

temp files 

loop COUNTEMP * 
&CNT = &CNT + 1 

* If temp filename hasn't changed, then increment temp file counter 
25 if (&OLDFN = &FN&CNT) then &TEMPCNT = &TEMPCNT + 1 

* If temp file counter matches the correct # of temp files for this 
original 

* file 

if (&TEMPCNT = &MAXTEMP) then goto JOIN2 



* If filenames changed, then we didn't receive all temp files 
(don't join) 

if (&OLDFN <> &FN&CNT) then goto JOINl 

-COUNTEMP 



-J0IN2 

* Join files 

* Get original filename 

&XT = 1 

loop FINEX)RIG firTOTMAP 
40 if 
{ & instr ( & substr ( &MAP&XT , &calc ( &instr (&MAP&XT, " , ) +1) ) , &OLDFN) >0) 
then goto GOTMATCH 

&XT = &XT + 1 

-FINDORIG 
-GOTMATCH 



* Assign original filename 

& N E W K A M 

&substr(&MAP&XT, 1, Scale (& instr (&MAP&XT, ",")-!)) 
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* Open destination file 

open &INDIR. &NEWNAME as #1 for output stream binary 
&HRC = &rc 

if (&HRC <> 0) then smsg "qCould not open file 
5 &INDIR. &NEWNAME. Join aborted." 

then goto JOINl 

* Write temp files to destination file 

&OCNT = &PTR 
loop WRITEOUT &MAXTEMP 
70 open &INDIR.&FN&OCNT. . .&FEXT&OCNT as #2 for input 

stream binary 

&HRC = &rc 

if (&HRC <> 0) then smsg "qCould not open file 
&INDIR. &FN&OCNT. , .&FEXT&OCNT. Join aborted." 

then smsg "qFile &INDIR. &NEWNAME could not be joined." 
75 then goto JOINl 

loop WRITE2 * 

read file #2 &RECSTR length 256 
if not found then goto DONE3 
write file #1 &RECSTR 



20 -WRITE2 
-DONE3 



-WRITEOUT 



25 



close #2 

&OCNT = &OCNT + 1 
close #1 



-JOINl 
-DONEJOIN 

* Erase any sub-files and mapping file 
quiet erase &INDIR, FILE* . * 
quiet erase &INDIR. MAP. DAT 



30 . 

return 
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* SCRIPT: REM2-SCR 

* FUNCTION: Read configuration and telephone files into RAM vars 



10 



15 



20 



25 



30 



35 



40 



on error 

on attnkey FIO &GETOUT Y 

* Read configuration file 

if not exists &APPLDR. CONFIG. DAT then clear 

then smsg "q&APPLDR. CONFIG. DAT does not 
Application cannot continue," 

then read line &Q1 "qPress ENTER," 

then quiet stop all 



exists. 



* Load records in configuration file into vars 

&NUMPORTS =0 ;* init # of valid ports 

open &APPLDR. CONFIG. DAT as #1 for input 
if (&retcode <> 0) then clear 

then smsg "qProblem opening file &APPLDR. CONFIG. DAT. 
Application cannot continue," 

then read line &Q1 "qPress ENTER." 
then quiet stop all 

* Read 1st record (incoming directory) 

read file #1 &XINDIR 
if not found then clear 

then smsg "qlst record in file &APPLDR. CONFIG, DAT must be 
incoming directory name." 

then read line &Q1 "qAppl ication cannot continue. Press 

ENTER . " 

then quiet stop all 
&XINDIR = &trim(&XINDIR) 

if (&substr(&XINDIR,&length(&XINDIR) ,1) <> 'X') then 
&XINDIR = "&XINDIR\" 

* Make sure incoining directory exists 

quiet mkdir &XINDIR 

substitute define &,INDIR = &XINDIR 

* Loop until end of file 

loop READREC * 

read file #1 &RECSTR ;* read a record 

if not found then goto CONTl ;* EOF ? 



argstring &RECSTR 
parse "-" ... 



;* breakout tokens 
;* parse using the tilde 



45 



* Make sure we have 6 parameters 
if {&N <> 6) then clear 

then smsg "qlnvalid # of parameters 
#&calc(&NUMPORTS +1) of file &APPLDR . CONFIG . DAT . " 



in line 
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then read line &Q1 "qApplication cannot continue. Press 

ENTER," 

then quiet stop all 

* Increment port counter 

&KUMPORTS = iNUMPORTS + 1 

* Assign entry name 

substitute define & . EN&bfUMPORTS = "&triin(&upper (&1) ) " 



* Assign port # 
global &PORT&NUMPORTS 
&PORT&NUMPORTS ^ "&trim(&2)" 

* Assign modem speed 
global &SPEED&NUMPORTS 

&SPEED&NUMPORTS = " &triin ( &upper ( &3 ) ) " 

* Assign port type 
global &PTYPE&NUMPORTS 
&PTYPE&hnJMPORTS = " &tr im ( &upper { &4 ) ) " 

* Assign modem type 
global &M0DEM&NUMPORTS 

&MODEM&NXmPORTS = "&trim ( fiupper ( &5) ) " 

* Assign modem name/class 

global &MNAME&NUMPORTS 

&MNAME&NUMPORTS = "& trim ( Supper ( &6 )) " 

* Make sure relay's setting match configuration file 

quiet directory query &EN&NUMPORTS MSPEED &HSPEED TYPE 
30 &HTYPE COMPORT &HPORT 

&HRC = &retcode 

* If entry name does not exist, then build it with appropriate 
options 

if (&HRC = 2) then gosub BUILDENT 
then goto C0NT4 

* Make sure modem speed, comm port and type of connection are 
correct in Relay's 

* Directory of Computers 
if (&HSPEED <> &SPEED&NUMPORTS) or (&HPORT <> 

&PORT&MUMPORTS) or (&HTYPE <> "RELAY") 

then quiet directory update "&EN&NUMPORTS" MSPEED 
fiSPEEDStNUMPORTS TYPE RELAY COMPORT &PORT&NUMPORTS 

-CONT4 

* Make sure port type, modem type and modem name/class are correct 
in Relay's 

* personal computer options 

reset &HTYPE; reset &HMODEM ; reset &HNAME 

quiet directory qoption comport & PORT &NUM PORTS &HTYPE 
&HMODEM &HNAME 

50 
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if ("&HTYPE" <> "&PTYPE&NUMPORTS") or ("&HMODEM" <> 
"&M0DEM&NUMPORTS") or ("&HNAME"<> " &MNAME&NUMPORTS" ) 

then quiet directory soption comport &PORT&NUMP0RTS 
&PTYPE&NUMPORTS &MODEM&NUMPORTS "&MNAME&NUMPORTS" 

-READREC 
-CONTl 

close #1 



* Make sure remote PC has at least 1 com port 
?o if (&NUMPORTS < 1) then clear 

then smsg "qThere must be at least 1 com port for 
application to run. Check file" 

then read line &Q1 "q&APPLDR. CONFIG. DAT. Press ENTER." 
then quiet stop all 

* Get directory relay gold is running in 

global &RUNREL 
&RUNREL = &RDRIVE 

if (&substr(&RUNREL,&length(&RUNREL) , 1) <> 'X') then 
&RUNREL = "&RUNREL\" 

20 ... 

* Copy application online profile to relay's directory 

if exists &RUNREL. RELAY .ONP then copyfile &RUNREL. RELAY . ON P 
&RUNREL . RELAY . HLD 

then copyfile &APPLDR. RELAY . ONP &RUNREL. RELAY . ON P 
else copyfile &APPLDR* RELAY . ONP &RUNREL. RELAY . ON P 

25 

* Return control to calling script (normal termination) 

quiet stop 



* Subroutine to build an entry in the directory of computers 
-BUILDENT 

30 

* Build entry name using entry name •A PC as the model 

quiet directory add "&EN&NUMPORTS" "A PC" 
&HRC = &retcode 



* Entry name *A PC not found ? 

if (&HRC = 2) then clear 

then smsg "qEntry Name 'A PC must be created on your copy 
of Relay Gold. To create" 

then smsg "qa new Entry Name, enter the Directory of 
Computers and copy an entry of" 
40 then read line &Q1 "qTYPE 'PC. Then, name the new Entry 

Name 'A PC. Press ENTER." 

then quiet stop all 

* No room on disk ? 

if (&HRC = 3) then clear 
^5 then read line &Q1 "qNo room on disk to create new entry 

name. Press ENTER." 

then quiet stop all 



50 



* Update new entry name with proper modem speed, type, comments, 

quiet directory update "&EN&NUMPORTS" MSPEED 
&SPEED&NUMPORTS TYPE RELAY COMMENTS "PORT #&NUMPORTS FOR SCRIPT" 
COMPORT &PORT&NtrMPORTS TELEPHONE "" 

return 



71 



BNSDOCID-<EP 0512174A1 I > 



EP 0 512 174 A1 



* REM3-SCR 

* FUNCTION: Invokes relay sessions 

* Allow script to perform error processing 

on error 

on attnkey FIO &GETOUT = Y 

* If RAM exceeded, then provide error message 

on nomemory smsg "qOUT OF MEMORY SESSION" ;STRACE OFF 

* Specifies the session name suffix (ASYNCl) etc. 

&ASYNCNUM = 1 

* Iterate # of sessions specified 

loop ASYNC while (&ASYNCNUM <= &NUMPORTS) 

* Call subroutine to invoke a new async session 

gosub DOASYNC 

* Init session status 

define &HSTAT&ASYNCNUM "OFFLINE" 

* Increment for next async session 

&ASYNCNUM = &ASYNCNUM + 1 

-ASYNC 

* Terminate script (normal termination) 

quiet stop O 

* This subroutine invokes an async session 
-DOASYNC 

* Invoke a new async session and execute script REM4.SCR. 

* Assign a session name with ASYNC&ASYNCNUM format where &ASYNCNUM 
is the 

* current session being invoked. 

session start 
REM4/X: "&ASYNCNUM"/SD: "&APPLDR"/NAME : "ASYNC&ASYNCNUM"/SL: 4 

* Wait 20 seconds for the session to be established 

wait 20 (&sescount &calc ( &ASYNCNUM + 1)) 

* If session was not established successfully, then jump to error 
routine . 

if timeout then goto NG 

* Provide check to make sure session was completely established 
before proceeding . 

&XCNT = 1 

loop -CANWAITl * 

session status #2 &NX &STX 

if (&rc = 0) then goto CANSTOPl 

wait 1;&XCNT = &XCNT + 1 

if (&XCNT > 45) then goto NG 
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-CANWAITl 

* Provide error message if session was not established. 
5 -NG 

clear 

open fit APPLDR.LOG as #1 for append 

write file #1 "&DATE &TIME Not able to bring up Session 
#&ASYNCNUM. " 

read line fitQl "qNot able to bring up Session #&ASYNCNUM, 
70 Press ESCAPE . " 

quiet stop 1 ;* return error code 

-CANSTOPl 



75 



* Return to caller 
return 
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* SCRIPT: REM4.SCR 
* 

* FUNCTION: Places PC in answer mode, performs recoveries etc. for 
each session 

* on the remote pc 

* if debug is on, then invoke trace 

if (&DEBUG = Y) then strace LOG&SESSIONID 
on error 

on nomemory smsg "qOut of memory session # &SESSIONID 



global &ASYNCNUM 

* Assign communications session number 
SASYNCNUM = &1 

* Retrieve communication port # for this session 
directory query &EN&ASYNCNUM comport &HPORT 

* Retrieve modem type for this session 
directory qoption comport &HPORT &DUMMY1 &MODEMNAM 

* If modem type is QX (Microcom) , then set special modem variable 
to 

* submit 'AT* instruction to modem 
if (&upper(&MODEMNAM) = QX) then global &$MICMD 

* then &$MICMD = "\N3\Q3\J0%C3 " 

* For super duper QX/4232hs (latest & greatest) 

then &$MICMD = "%C0%G1%BT12000" 

* Place session in answer mode, 
-WAITANS 

30 answer "&EN&ASYNCNUM" ex REM5 

&HRC = &retcode 

* Error messages based on return code 

* If line dropped before xfer completed, then send file again 
if (&HRC = 99) then &MESSG = "Inadvertent line drop before 

file transfer was completed," 

else if (&HRC = 66) then &MESSG = "Normal disconnect from 

PC" 

else if (&HRC = 2) then &MESSG = "Insufficient memory for 
the connection." 

else if {&HRC =3) then &MESSG = "Communication port is not 
operational . " 

else if (&HRC = 4) then &MESSG = "User pressed ESC 
cancelling the wait." 

else if (&HRC = 5) then &MESSG = "The modem is not 
responding properly." 
45 else if (&HRC = 6) then &MESSG == "No carrier detected on 

line. " 

else if (&HRC = 8) then &MESSG = "Voice detected on 
telephone line." 

50 
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else if (&HRC = 15) then &MESSG = "Entry Name 
'&EN&AsyNCNUM' not in the Directory of Computers." 

else if (&HRC = 98) then &MESSG ^ "Problem with initial 



smsg "q&MESSG" 



* Check for fatal codes 

if (&HRC = 2) or (&HRC = 3 ) or (&HRC « 4 ) or (&HRC = 15) 

then &MESSG = "Fatal error for Entry Name &EN&ASYNCNUM - 
port unusable," 



then smsg "q&MESSG" 

then smsg "qSession idle" 

then quiet stop all 



* Check if no more files to be received from central PC 



if {&HRC = 66) then define &HSTAT&ASYNCNUM = "DONE" 
then smsg "qSession idle" 
then quiet stop all 



* Place session back into answer mode 



goto WAITANS 
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* SCRIPT: REM5.SCR 

* FUNCTION: Performs online duties for communication session 
5 on error 

* Use relay's compressed protocol (type RC) 

* set protocol relay compress 

* Switch to split screen mode 
70 * switch relay 

* If relay's protocol not established in 60 seconds, then hangup 



75 



20 



25 



wait 60 (&CSERIAL <> 

if timeout then hangup 98 

* Use hardware flow control 

* wait 1 

* substi session switch #&calc (fiasyncnum + 1) 

* set insmode off ;* turn off insert mode 
stack »' [ESCAPE] [F5] [TAB] [TAB] [TAB] [TAB] [TAB] [TAB]H[enter ] " 



* 



* wait 1 
reset &receive ;* in case any junk chars 

* session switch #1 

* If inadvertent line drop occurs, then tell offline script to 
place in 

* answer mode 

on disconnect hangup 99 

* If line goes idle for more than 1 minute, then hangup 
30 on idle 100 hangup 99 

* Set inbound path 

set rdrive &INDIR 

* Set session status 

35 define &HSTAT&ASYNCNUM = "ONLINE" 

* Set the script control character to hex 24 (char-> $) 

set scriptctl x"24" 
quiet stop 

40 



Claims 

45 1. What is claimed is a parallel rule-based data transmission process comprising the steps of: 

(a) sensing the data file characteristics, 

(b) assigning a unique file identifier to each data file wherein said file identifier uniquely names each 
file and serves to designate its destination, 

(c) rule-based segmentation of the said data files which uses the data file characteristics and the 
50 available data transmission channels to allocate data files or data file segments over available data 

transmission channels. 

(d) assigning segment identifiers to each file segment created by the rule-based segmentation step, 

(e) applying a data compression algorithm to the data file or data file segments to be transmitted, 

(f) simultaneous transmission of the data file or data file segments over multiple transmission 
55 channels, 

(g) receipt of said transmitted data file or data file segments at a receiving computer, 

(h) identifying the data compression scheme applied to the data file or data file segments, 

(i) decompressing the data file or data file segments. 
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(j) sensing the end of transmission (ETX) signal 

(k) rendering the receiving computer in an on-hook condition 

(I) reassembling the data file segments based upon the file segment identifiers, 

(m) storing the decompressed reassembled data files. 

5 

2. The parallel rule-based data transmission process of claim 1 wherein each data transmission channel 
comprises a transmission communication port, transmission modem, a transmission medium, receiving 
modem, and a receiving port. 

10 3. The parallel rule-based data transmission process of Claim 2 further comprising the steps of sensing 
data transmission channel condition on a continuous basis during transmission to determine when the 
signal to noise ratio of any single transmission channel falls below a given threshold and reallocating 
those data files or data file segments on the said sensed malfunctioning channel to other properly 
operating data transmission channels. 

75 

4. A parallel rule-based data transmission process according to Claim 3 wherein said data transmission 
channels are selected from the group comprising serial data transmission and parallel data transmis- 
sion. 

20 5. A parallel rule-based data transmission apparatus comprising data transmission channel means over 
which data files or data file segments are transmitted, data processing means including logic means for 
applying rule-based software, data storage means to store data files for transmission, means for 
assigning a unique file identifier including file destination, random access memory means for storing file 
segmentation rules, file segmentation rules stored in said random-access-memory means and accessed 

25 by the logic means for performing file segmentation based upon data file characteristics and available 

data transmission channel means, data compression means for compressing the data files or data file 
segments based upon the data file characteristics, data decompression means for decompressing the 
compressed data file or data file segments data storage means to store the decompressed data file and 
data file segments and data file reassembly means to reassemble the data file segments transmitted 

30 into a single data file. 

6. The parallel rule-based data transmission apparatus according to Claim 5 wherein said data transmis- 
sion channel comprises a transmission communication port, transmission modem, receiving modem 
and receiving port. 

35 

7. The parallel rule-based data transmission apparatus according to Claim 6 wherein said data storage 
means further includes a means for storing a plurality of unique destination identifiers and associated 
telephone numbers or network addresses. 

40 8. The parallel rule-based data transmission apparatus according to Claim 7 wherein said unique file 
identifier includes a file destination on a private data network. 

9. The parallel rule-based data transmission apparatus according to Claim 7 wherein said unique file 
identifier includes a file destination on a public switched network. 

45 

10. The parallel rule-based data transmission apparatus according to Claim 5 wherein said data transmis- 
sion channel means comprises multiple data transmission channels over which data files or data file 
segments are transmitted simultaneously. 

50 11. The parallel rule-based data transmission apparatus according to Claim 10 wherein said data process- 
ing means comprising logic means to permit multiple data transmission sessions to occur simulta- 
neously without the need to load multiple copies of software in the said random-access-memory. 

12. The parallel rule-based data transmission apparatus according to Claim 11 wherein the said rules 
55 further comprise rules for least cost routing to reduce transmission costs. 

13. The parallel rule-based data transmission apparatus according to Claim 11 further comprising emulation 
to permit data transmission from the group comprising PC to mainframe, mainframe to mainframe, 
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mainframe to PC, terminal to mainframe, terminal to PC, terminal to terminal communication. 

14. The parallel rule-based data transmission apparatus according to Claim 11 further comprising read only 
memory for storing rules, logic control means, and data communication software instructions. 

15. The parallel rule-based data transmission apparatus according to Claim 6 wherein said transmission 
and receiving ports are from the group comprising parallel computer ports and serial computer ports. 

16. A rule-based parallel data transmission system comprising a plurality of data transmission channels, file 
segmentation rules which govern the segmentation of files based upon the availability of data 
transmission channels. 

17. A parallel rule-based data transmission system of Claim 16 further comprising data compression means 
for compressing data transmitted over the said data transmission channels and further comprising data 
decompression means to decompress incoming data upon receipt at a destination. 

18. A parallel rule-based data transmission system of Claim 17 further comprising line monitoring means 
for monitoring the signal to noise ratio of the data transmission channels and further comprising rules 
for reallocation of data files or data file segments files to properly operating data transmission channels 
when the signal to noise ratio monitored on any given data transmission channel falls below certain 
thresholds. 

19. A parallel rule-based data transmission system of Claim 18 further comprising means of sensing the 
presence of binary or ASCII files and applying one compression algorithm when binary files are sensed 
and a different compression algorithm when ASCII files are sensed. 

20. A parallel rule-based data transmission system according to Claim 1 or Claim 5 for use with the 
Integrated Services Digital Network (ISDN) telecommunication standard. 

21. A parallel rule-based data transmission system according to Claim 1 or Claim 5 wherein said 
segmentation rules dictate that files below a certain threshold are not segmented. 
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